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EDITORIAL 




MERCI, 

MONSIEUR LE PREMIER MINISTRE 

C hacun s'accorde à dire que le plan informatique à l'école est une bonne chose. Nom¬ 
breux sont ceux qui trouvent abusive (et nous sommes de ceux-là), la mise en avant 
des micro-ordinateurs de là marque THOMSON. 

Bien sûr, il s'agit avant tout d'un geste de politique interne et d'une mise en avant, destinée 
à THOMSON pour leur permettre un chiffre d'affaires appréciable. 

Toutefois, le procédé est très largement abusif, d'autant que la machine est loin de valoir 

i 

ce que l'on veut bien en dire dans les publicités payées par le contribuable. 

Cependant, toute action peut avoir des effets pervers et il en est ainsi de ce plan. 

Nous nous sommes souvent demandés à quoi était dû cette forte demande en fin d'année 
sur les micros familiaux, le jour de Noël n'expliquant pas tout. 

Notre enquête apporte une conclusion surprenante et inattendue. En effet, de nombreux parents 
décidèrent l'achat d'une machine afin de permettre à leurs enfants de se mettre au courant 
et ainsi ne pas prendre de retard à l'école. Autre but : après les leçons des professeurs, avoir 
la possibilité de se perfectionner à la maison, d'où une forte demande. 

Surprenant, non ? 

Effets pervers, mais pas pour tout le monde. 

S. FAUREZ 
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Imprimante aeikoshe GP 500A 
50 caractères par secorrde. 80 colonnes papier 
informatique permet l'édilion de textes et gra¬ 
phismes de qualité correcte pour un prix raison¬ 
nable La plus répandue en informatique familiale. 

□ imprimante SEIKOSHA GP500A 2680 F 


MODEM 

Votre ORIC s'ouvre sur l'extérieur. Il 'discute* 
avec ses semblables et accède au réseau 'miniter. 
Fourni avec interface intégrée et logiciel 
□ modem--- 1490 F 




Interface tout jeux 
Grèce à cet interface programmable vous utili¬ 
serez vos joysticks avec tous vos logiciels de jeux. 
□ interface tous jeux. 425 F 




Rallonge Péritel 
Ne soyez plus ‘collé* è Técran I 
G rallonge ___—-- 


80 F 


AMPIIBUS JASMIN 

Amplifie les signaux du bus permenant ainsi la 
connexion de 3 interfaces 
□ ampli bus . 3 60 F 



Interrupteur 
Ne courrez plus le risque de faire sauter la ROM 

□ interrupteur d'alimentation. 80 F 

Synthétiseur vocal 

Enfin votre Oric peut s'exprimer ! Anglais d’origine 
il gardera son accent mais, grâce è un programme 
basic. vous dira ‘bonjour^, 'gagné' ou vous 
apprendra l’anglais ou rallemand. 

□ synthétiseur vocal 

(avec câble connexion).550 F 

485 F 



Joystick TIflVITT 
Le 'MUST' en matière de joystick I 8 directions, 
contact par micro-contact, robuste, élégant précis 
il ne vous décevra pas. garanti 1 an, compati¬ 
ble standard ATARI et MSX 
□ joystick TIRVin.-. »..140F 


1 


□ quickshot2 . lAOF 



Imprimante MCP 40 

L'imprimante 4 couleurs aux couleurs d'ORIC I 
□ imprimante MCP 40. 990 F 




JASMIN 2 

Le lecteur de disquette que votre Ork préfère. 
Permet, entre autres, de recopier sur disquettes 
tes logiciels (mime plombés) sur cassette. 

□ lecteurdoubletite . 2G90F 


rensemble 

3490 F 




LOGICIELS CASSEHE 


sur une cassette 


□ saga. 


□ objectif élysée 


□ crocky 


LIVRES 

□ manud de référence 



Imprimante Smith Corona Fastext 80 
• 80 caractysac.. impression bidirectionnelle, 
entrainement par friction, interf. contronic. buffer 
intégré, écriture normale ou condensée 

□ Fastext 80 . 1995 F 

Branchement ordinateur/magnétoscope 
Grâce à cette interface laissez brancher en per¬ 
manence votre ordinateur et votre magnétoscope. 
Prévoir une alimentation 12 V 

□ interface ordiymagnétosc. 345 F 



□ hu *bert. 

. 120 F 

1 

□ 3 0 muneh . 

. 140 F 

_150 f 

□ super jeep. 

120 F 


□doggy . 

120 F 


□ orthocrack vol. 1 . 

.160 F 


□ orthocrack vol. 2 . 

. 160 F 


□ orthocrack vol. 3 . 

160 F 

.140 F 

□ lic-tK. 

.120F 

. 95 F 

□ vision. 

. 120F 

. 95 F 

□ bask français. 

.180 F 

.120 F 

□ challenge voile. 

. 140 F 

. 250 F 

□ lotoriciel . 

. 120 F 

.140 F 

□ les vegas. 

95 F 

.160 F 

□ waydor. 

140 F 

.150F 

□ cokrk. 

105 F 

. 250 F 

□ trésor du pirata. 

.105 F 

.150 F 

□ monopolk. 

160 F 

.140 F 

□ nossy . 

. 95 F 

.160 F 

□ affaira en or. 

155 F 

.180 F 

□ wortd wer 3. 

95 F 

.120 F 

□ frelon. 

. 160F 

.120 F 

□ starter 3 0 . 

130F 

.120 F 

□ roleruf garros. 

. 120F 

.140 F 

□ tyrenn. 

. 185 F 

.140 F 

□ multkalc. 

. 190 F 

.180 F 

□ SKret de kaipur. 

. 130 F 

.145 F 

□ 3 0 fongus. 

. 180 F 

.145 F 

□ flipper (lorkiel) . 

180 F 

.120F 

□ momsegur. 

140 F 

.110F 

□ ftanley . 

. 120 F 

.110F 

□ cabre. . 

. UDF 

. 95 F 

□ détective story. 

. ISO F 

.120 F 

□ cannibil . 

95 F 

. 250 F 

□ tendre poulet. 

. t20F 

. 280 F 

□ durandel. 

. 120 F 

. 280 F 

□ planète bleue. 

t20F 

.140 F 

□ reversi champion. 

140 F 

.180F 

□ j'apprends Tangliis. . 

.140 F 

.180F 

.160F ' 

□ course eux lettres. 

. 95 F 

.120 F 

LOGICIELS DISQUETTE 


.180 F 

(pour lecteur JASMIN) 


.180 F 

□ assembleur. . 

.490 F 

.120 F 

□ easytexi . 

.590 F 


□ logo-graph. 

.390 F 


□ gestion femiliele . 

.390 F 


□ astrocelculs. 

.490 F 

.... 136 F 
. 95 F 

□ en route vers la galaxie . 

.390 F 

□ les conquérants. 

.240 F 


□ origraph . 

.350 F 

.1Û5 F 

□ multifich . 

.590 F 


□ cek . 

590 F 

.lüb F 

. 05 F 

qs F 

□ mathegraph . 

390 F 

□ le rebelle. 

240 F 

.120 F 

Z0N6A ! tondre la pelouse, tailler les fleurs. 

. 95 F 

surveiller le niveau iTénergia. na pas sa faire 

.100 F 

prendre par le méchant crocky! 12 tableaux 

jr... 215F 

et un édrteur vous pwmottant d'en créer au- 

. 95 F 

tant que vous la désirez. Pour ORIC 1 ot 

.105 F 

ATMOS. 


. 295 F 

□ ZONGA . la diaqiwtta.198 F 



Moniteur 12" 

Splendide moniteur 12” monochrome vert ou 
ambre. Un modèle professionnel à un prix grand 
public. 

□ moniteur12”veriouambre .. 1400 F 

Câbla Imprimante 

Vous permet de connecter votre Oric è n'importe 
quelle imprimante su standard 'contronic' 

□ câble impnmaBf 150 F 

Câble Monitaur 

Pour brancher votre Oric è un moniteur mono¬ 
chrome 

□ câble moniteur ___ 55 F 


GRAPHISCOP II 

Conçue et fabriquée en France, la tablette gra¬ 
phique è digitaliser 'GRAPHISCOP U’ vous per¬ 
mettra de dessiner à la lois sur un papier et 
è fécrsn en utilisant la résolution graphique 
maximale de votre micro-ordinateur. 
'GRAPHISCOP ir est livrée avec un boîtier 
interfsco connectable è votre micro, un manuel 
d'utilisation, un logiciel sur cassette ou disquette. 
La partie principale du Source est en Basic pour 
permettre è Tutilisateur d'a adjoindre de nouvtilos 
fonctions. 


nouveau 



J 


□ GRAPHISCOP II (avec interface). 1490 F 



Maanesmann MT 80$ * 

L'imprimante'top niveau' en informatiquefa- 
miliale 100 caractères par seconde Papier 
normal ou informatiquo. Entrainement par 
friction ou traction. Si vous recherchez une 
qualité 'courrier*, la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour te graphisme. 

□ Mannesmann MT 80S . 3350 F 




Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

□ carte 8 E/S. 395 F 


'I O 


Cane E/A 

Pour transformer votre Ork en centrale de me¬ 
sures. Possibilité de brancher plusieurs cartes 
□ cane8E/A_ 395 F 


Magnétophone 
Ce magnétophone spécialement conçu pour les 
mkro-ordinateurs vous évitera bien des soucis 
Entrée DIN ou Jack. Niveau réglable. Témoin 
sonore et lumineui Alunentation intégrée 
□ magnétophone 390 F 


Cane mère 

Grâce è ce câble vous pourrez connecter 3 inter¬ 
faces et garderez la possibilité de brancher un 
lecteur de disquettes 

□ carte mère 3 slots —. 205 F 

□ même modèle mais 1 slot. 95 F 



Cassette spéciale micro 

□ les 5_ 

□ les 10. 


□ disquettes vierges 3". unrtà 

□ disquettes vierges 3", per 10 


..45 F 
80 F 


35F 
350 F 


COMMENT COMMANDER ; 

- Cocher lofs) artklels) dèsiréis) ou faites en une kste sur une feuiHe è part ~ Faites le total + frab de port (20 F pour achats inférieurs è 500 F. 40 F de 500 à 1000 F. 80 F pour tout achet supérieur à 1000 F) 

Je possède : DORICl DATMOS 

NOM_PRENOM :_ 


_ TEL :- 

ADRESSE :_CODE POSTAL 

Mode de paiement ; □ chèque □ mandat □ contre-remboursement (prévoir 20 F de frais) 
envoyer le tout à : ORDIVIDUEL 20, rue de Montreuil 94300 VINCENNES 
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courricr 

•< 

Nous croulons sous l'abondance 
de courrier. Evitez de nous écrire 
pour poser des questions éviden¬ 
tes dont la réponse figure dans 
chaque THEORIC : tarif d'abon¬ 
nement, où nous envoyer 
(adresse) un logiciel, etc. 

Pour tout courrier, n'oubliez pas 
de découper le "Coupon Corres¬ 
pondance" et de joindre une 
enveloppe affranchie self- 
adressée. Si vous êtes abonné, 
cela n'est pas nécessaire. Par 
contre,'il est indispensable de 
Joindre votre étiquette d'abonné 
découpée sur l'enveloppe dans 
laquelle vous recevez la revue. 
Faute de respecter ces règles, 
pas de réponse I 


M. SZABO 
74 ANNEMASSE 

A TOUS LES CREATEURS 
POTENTIELS : EVITEZ D'UTILI¬ 
SER LA "PAGE 4". 

Je me permets d'adresser cet 
appel pressant à tous les "ORI- 
CIENS' programmateurs ama¬ 
teurs, auxquels je suggère de 
cesser d'utiliser la page 4 en y 
POKANT quelques octets qui 
pourraient aisément trouver place 
ailleurs en mémoire. 

Oue ceux qui n'utUisent que le 
magnétophone pour sauvegarder 
leurs programmes pensent qu 'un 
jour ils seront peut-être les heu¬ 
reux possesseurs d'un lecteur de 
disquettes, c'est du moins ce que 
je leur souhaite de tout cœur. 
Mais alors, ce jour là, que de 
déboires pour eux lorsqu 'ils vou¬ 
dront y transplanter leurs pré¬ 
cieux programmes utilisant la 
page "maudite". Le terme pourra 
sembler un peu fort pour certains 
d'entre vous, mais voilà ce qui 
me le fait employer : 

Après la désorganisation complète 
de plusieurs faces de disquettes, 
que j'ai attribuée d'abord aux para¬ 
sites, puis aux micro-coupures, 
puis au mauvais fonctionnement 
de mon lecteur, j’ai fini par réali¬ 
ser ce qui s'était passé. Tous ces 


ennuis sont apparus tors de ta sai¬ 
sie, puis des essais d'un logiciel 
paru dans notre revue préférée, 
j'ai nommé THEORIC. Le pro¬ 
gramme que j'ai admiré, sur le 
papier du moins, était "Musico- 
ric”, et il m'a fallu un bon 
moment avant de comprendre 
qu 'il était à l'origine de tous mes 
ennuis, d'autant que les adresses 
en page 4 étaient ^exprimées en 
décimal. Ainsi, lors de sauvegar¬ 
des, après correction des fautes 
de saisie, le DOS, partiellement 
détruit dans la zone mémoire 
incriminée, faisait n'importe quoi. 
Oue d'heures perdues ensuite 
pour essayer de rafistoler les 
pointeurs des disquettes afin de 
repêcher un maximum de pro¬ 
grammes. /■ 

Moralité : Ignorez la page # 400 
à H 4FF si vous ne voulez pas un 
jour vous heurter à des problèmes 
semblables. 



Mon ORIC n'affiche plus, à la 
mise sous tension, la page de 
présentation. Celle-ci est rempla¬ 
cée par des signes colorés de tou¬ 
tes sortes. J'ai supprimé le mon¬ 
tage d'inversion vidéo paru dans 
THEORIC n° 1 : l’ordinateur s'est 
remis à fonctionner quelques 
minutes, avant de présenter le 
même défaut. 



Le montage d'un transistor inver¬ 
seur, devant le modulateur UHF 
de l'ORIC, ne peut en aucun cas 
provoquer le défaut que vous 
avez constaté. Sa disparition 
(pour un temps limité, du reste), 
ne peut être due qu'à une coïn¬ 
cidence ! Il est difficile de 
"dépanner" à distance, à plus 
forte raison une machine aussi 
complexe qu'un micro-ordina¬ 
teur. Cherchez toutefois la panne 
du côté du circuit de RESET, à 
moins qu'elle ne provienne d'une 
"soudure sèche". 

DE PLUSIEURS LECTEURS 

Publiez dans THEORIC les adres¬ 
ses utiles du DOS de TR AN. 

Nous sommes désolés, mais 
TRAN n'est pas en mesure de 
fournir des renseignements sur le 
TDOS. Par conséquent, il faut 
désassembler soi-même et cher¬ 
cher à comprendre ! A la rédac¬ 
tion de THEORIC, nous n'avons 
pas encore entrepris, faute de 
temps, un tel travail. Il va sans 
dire que, si un de nos lecteurs a 
travaillé sur cette question, nous 
lui ouvrons nos pages bien volon¬ 
tiers. 


Philippe COUTON i 
44 ANCENIS 

Vous dites, à propos du Jasmin, 
je cite, "... une partie de la 
mémoire est utilisée pour passer 
les paramètres (II97EO à 
97FF)... ". 

Ceci est partiellement vrai, car le 
Jasmin, en fait, passe ses para- 


Pas d'étiquette abonné ou pas d'enveloppe self- 
adressée égale pas de réponse au courrier. Qu'on se 
le dise ! 
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nouvelles^ 


Il se passe des 



mètres sous FRETOP, c'est-à-dire 
le pointeur de fin de stockage de 
chaînes de caractères (IIA2- 
it A3). Si ce n'était pas le cas, 
chaque appel au drive détruirait 
lesdites chaînes, ce qui est faux. 
J'utilise beaucoup de logiciels en 
langage machine implantés à ces 
adresses sans aucun problème. 
Le Moniteur 1.0 fonctionne cor¬ 
rectement. 

U suffit de placer un HIMEM judi¬ 
cieux en Basic ou de modifier cor¬ 
rectement le contenu de IIA2- 
#-43 et de KA6-tlA7 dans votre 
programme Assembleur. 

Je lis ensuite que le TKD ne fonc¬ 
tionne pas avec un enrgistrement 
sans nom. Pourtant, il y a une 
astuce fort simple : lorsque le 
programme demande le nom du 
fichier à lire sur la cassette, H suf¬ 
fit de répondre soit " " et 
RETURN (deux guillemets sans 
rien à l'intérieur, même pas 
espace), soit ESPACE et 
RETURN, ça marche, que le pro¬ 
gramme de la cassette ait un nom 
ou pas I . , 

Pour terminer ce chapitre "cour¬ 
rier", un dernier truc : lors d'un 
IM LO AD avec un tableau alpha¬ 
numérique, si vous voulez retrou¬ 
ver vos données d'origine, H faut 
impérativement garnir TOUTES 
les cases du tableau avant de 
faire IMS AVE. Pour le vérifier, 
entrez le progtamme suivant : 

10 DIM A$(3,3) 

20 A$(1,1) = "ABC":A$(2,2) = 
"DEF":A $(3,3) = "GH!" 

50 IMSAVE "ESSAI = A$": 
IMLOAD "ESSAI=A$" 

60 FOR 1^0 TO 3: FOR J = OTO 
3:PRINT A $(I,J):NEXT:NEXT 

Faites RUN et regardez, c'est un 
désastre. Maintenant, ajoutez ces 
deux petites lignes : 

30 FOR 1 = 0 TO 3: FOR J = OTO 
■3:1F A$(I,J) = "" THÉN 

.A$(I,J)="" 

40 NEXT.NEXT 

RUN de nouveau et regardez, ça 
marche. Si le caractère rajouté 
vous gêne, il suffit de faire l'opé¬ 
ration inverse après IMLOAD. 
J'espère que cela pourra dépan¬ 
ner vos lecteurs.U 


ressantes dans les Deux-Sèvres 
actuellement,) dans le domaine de 
la micro-informatique amateur, et 
il nous paraît très important de 
vous en^Jaire part. 

En effet, sous l'impulsion de 
M.P.T Micro, club de micro- 
informatique de la M.P.T. de Cha- 
tillon/Thouet, près de Parthenay, 
un grand projet de rassemble¬ 
ment des informaticiens ama¬ 
teurs a vu le jour et est en voie 
de réalisation. 

Dans le but de les mettre tous en 
rapport, les uns avec les autres, 
groupes ou particuliers, débu¬ 
tants ou chevronnés, et sans 
structure lourde ni carcan, est 
née l'Association Multi- 
Informatique Amateur (A.M.I.A.). 
Cette Association réunit déjà plus 
d'une vingtaine de clubs, grou¬ 
pes, associations, ainsi que des 
particuliers, en majorifé des 
Deux-Sèvres, mais également 
d'un peu partout en France (Nor¬ 
mandie, Provence, Rouergue, 
Charentes, etc.). 

Tous les moyens pouvant aider 
les amateurs par des échanges, 
à quelque niveau que ce soit, et 
mis à notre disposition, seront 
exploités simplement. Cette sim¬ 
plicité est la clé de ce mouve¬ 
ment ; les amateurs en ont 
besoin pour avoir la possibilité de 
s'exprimer ou de' comprendre 
l'expérience des autres. Ils ont 
besoin d'explications avec des 
mots à eux, même si la rigueur 
est moins forte'. C'est donc un 
complément à la press© profes- 
' ^ionnelle, indispensable, mais qui 
ne peut pas répqridfe à toutes les 
attentes, parce qu'elle est profes¬ 
sionnelle. Nous avons donc un 
rôle à jouer, la demande est forte 
et réelle, et nous réussirons, mais 
à condition de rester simple. 

Le premier moyen que nous 
exploitons est un bulletin, publié 
tous les deux mois, dans lequel 


chacun peut s'exprimer, à condi¬ 
tion gue nous respections un 
équilibre rpar rapport aux débu¬ 
tants et aux chevronnés, par rap¬ 
port aux groupes et aux particu¬ 
liers. 

Le deuxième, qui sera effectif 
dans quelques semaines, sera un 
serveur messagerie, mis à la dis¬ 
position de tous les adhérents. 
Le troisième sera un premier 
forum de la micro-informatique 
amateur, qui aura lieu à Parthe¬ 
nay dans le dernier trimestre de 
1986. Ce forum aura pour objet 
de réunir le maximum de clubs, 
pour qu'ils présentent leurs réa¬ 
lisations, et également des orga¬ 
nisations de débats et tables ron¬ 
des. 

COMMUNIQUE_ 

JASMIN FINANCE 

Programme de prêt bancaire à 
l'écran ou sur l'imprimante. Ces 
programmes intègrent, et c'est 
une nouveauté, le coût de l'infla¬ 
tion avec ses conséquences inat¬ 
tendues, /nais heureuses pour 
l'emprunteur. C'est un excellent 
utilitaire'pour tout particulier ou 
homme d'affaires pour 219 F 
TTC. 


TRAN DIFFUSION fête son ser¬ 
vice de vente par corresporKlance 
en baissant le prix de son fameux 
Jasmin 2 è 2490 F TTC (vente 
directe uniquement). 


La société TRAN va bientôt dif¬ 
fuser* une disquette d'utilitaire 
avec un ON ERROR GOTO 
(môme pour les instructions 
Basic), un PR1NT USING, un 
SCROLL, un HARD COPY 
d'écran, un RENUM, un DELETE, 
dee utilitaires de formatage et de 
BACK-UP de sécurité et plein 
d'autres utilitaires pour FT-DOS. 
Le tout pour 190 F seulement. 
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TEiEsnur b nouvel ORIC 



E n attendant de pouvoir tester réellement les possibili* 
tés de la nouvelle machine, dès que celle-ci sera mise 
à notre disposition, nous reproduisons ci-oprès les 
caractéristiques essentielles du TELESTRAT, telles qu'elles nous 
ont été communiquées par EUREKA. Le nouvel ORIC o de quoi 
séduire les utilisateurs sur plus d'un point. 


Aujourd'hui, la révolution s'appelle TELE¬ 
STRAT, un ordinateur qui a pour vocation la 
communication, une machine conçue pour 
utiliser la plupart des moyens actuels de la 
télématique et de la micro-informatique. En 
France, ces moyens représentent, entre 
autres, 1,5 millions de Minitel et le réseau 
TRANSPAC qui véhicule déjà plus de 400 mil¬ 
liards de caractères par mois. 

ORIC a voulu que cette révolution soit exem¬ 
plaire. 

Pour moins de 4000 F TTC. vous disposez 
d'un micro-ordinateur à mémoire extensible 
muni d'un lecteur de disque 3", d'interfaces 
communes à la plupart des périphériques du 
marché, et de 7 logiciels intégrés ne néces¬ 
sitant pas de connaissances en programma¬ 
tion. 

La télématique n'est plus réservée à une élite 
de techniciens ou de passionnés. A l'heure 
où les micro-ordinateurs familiaux sont remis 
en question, où les PC "professionnels" res¬ 
semblent à des mini-ordinateurs... ORIC 
avance dans le domaine de la micro- 
informatique utile. 

Les possibilités de connexion du TELESTRAT 
à d'autres machines sont à la mesure de vos 
besoins. Des interfaces universelles ont été 
conçues pour couvrir les standards de la 
micro-informatique, pour les utilisateur pri¬ 
vés ou professionnels. 

LES APPLICATIONS 

DE CETTE "BETE A COMMUNIQUER" 

Tout ce que fait un micro-ordinateur doté du 
plus performant Basic du marché, compati¬ 
ble avec les autres ordinateurs de la gamme 
ORIC (plus de 2000 logiciels disponibles sur 
rORIC-1 et l'ATMOSI, et pour lequel vous 


n'étes pas obligé d'acheter un écran ou un 
modem téléphonique puisque ceux-ci sont 
sur le Minitel, gratuitement. 

Plus : 

Emulation Minitel 

Vous reliez votre Minitel au Telestrat, relié lui- 
même à un téléviseur couleur et vous décou¬ 
vrez le Minitel couleur. 

Vous consultez souvent de grandes banques 
de données ; inutile de rester connecté des 
heures et de voir s'allonger la facture des 
PTT, le TELESTRAT peut stocker dans sa 
méntoire des dizaines de pages Vidéotex que 
vous consulterez par la suite (horaires, spec¬ 
tacles, banques de données professionnel¬ 
les... I. 

Borne de communication 
Grâce aux logiciels intégrés, vous pouvez 
avoir une multitude de TELESTRAT comme 
points d'informations autonomes. Le TELE¬ 
STRAT peut, en effet, utiliser le standard 
VIDEOTEX pour toutes sortes d'applications. 
Ce standard universel permet d'utiliser des 
pages-écran composées sur n'importe quelle 
machine VIDEOTEX ou même envoyées par 
téléphone... 

Sans savoir programmer, un revendeur peut 
utiliser le TELESTRAT dans son magasin pour 
afficher des informations ou faire des 
démonstrations. Les clients peuvent choisir 
une rubrique dans un menu (par exemple : 
les nouveautés du rTx>is), le TELESTRAT affi¬ 
che aussitôt les messages composés pour 
cette rubrique (par exemple : nouvelle impri¬ 
mante ORIC ou nouvelle cartouche de jeux 
pour le TELESTRAT I). 

Le TELESTRAT possède un dérouleur de 
pages VIDEOTEX qui gère à votre place l'ac¬ 



cès aux menus et l'affichage des pages choi¬ 
sies : tout ce que peut faire un TELESTRAT 
relié au Minitel est possible, à fortiori dans 
un magasin. 

Dans une exposition, le TELESTRAT peut être 
installé sur des stands. Un visiteur interrogera 
le TELESTRAT pour avoir des explications sur 
la gamme des produits ou sur le salon lui- 
même. 

Dans un club de vacances, le TELESTRAT 
peut donner des informations sur les diffé¬ 
rentes activités et leur location ou permet¬ 
tre aux membres de s'initier à l'informatique. 
Dans ce dernier cas, un reseau serait peu fia¬ 
ble, vu l'espace è couvrir et la fragilité des 
connexions (par exemple : un terminal auto¬ 
nome pourrait être installé sur un bateau de 
promenade I). Avec le TELESTRAT, les mem¬ 
bres pourraient développer leurs propres 
applications ou créer eux-mémes des pages- 
écran. 

Dialogues entre deux Minitel 
Grâce au TELESTRAT, il devient possible de 
dialoguer par terminaux Minitel interposés : 
vous tapez des messages qui apparaissent 
instantanément sur l'écran de votre corres¬ 
pondant, LES PAROLES S'ENVOLENT, 
L'ECRITURE TELEPHONIQUE ARRIVE. 

Ce nouveau service de communication peut 
même devenir essentiel pour des personnes 
handicapées comme les sourds et les malen¬ 
tendants. 

Serveur Vidéotex 

Une multitude de services s'ouvrent aux pos¬ 
sesseurs du serveur rTK>noposte TELESTRAT 
et de ses logiciels intégrés. 

Création de pages Vidéotex 
Logiciel intégré permettant de composer des 
pages Vidéotex en couleurs. Aucune connais¬ 
sance en informatique n'est nécessaire. Il suf¬ 
fira d'insérer ces pages dans le programme 
fait par TELESTRAT pour les faire défiler è 
l'écran. Les pages peuvent comporter des 
caractères graphiques et du texte ; elles peu¬ 
vent être imprimées sur une imprimante 
connectée au TELESTRAT. 
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Création d'une arborescence 
/Suite de pages Vidéotex enchaînées) 
Logiciel intégré ne nécessitant aucune 
connaissance en programmation pour créer 
une suite de pages Vidéotex qui défileront sur 
l'écran Minitel de ceux qui appelèrent le 
TELESTRAT. 

VIDEO REPONDEUR : un appel de l’extérieur 
déclenche le "répondeur” TELESTRAT qui 
peut alors afficher des instructions sur l'écran 
de celui qui vous appelle ou prendre un mes¬ 
sage... 

APPLICATIONS PROFESSIONNELLES 
Professions libérales, distributeurs, indus¬ 
triels ou artisans, vos clients pourront 
consulter par Minitel votre catalogue et vos 
tarifs, passer des commandes, vérifier la dis¬ 
ponibilité en stock de vos produits, avoir des 
informations diverses... • 

Exemple : un pharmacien peut passer ses 
commandes de réapprovisionnement chez 
son fournisseur, un médecin peut confier au 
TELESTRAT la tâche de prendre ses rendez- 
vous et consulter son emploi du temps, en 
visite, à partir d'un autre Minitel (il y en a déjà 
sur le bord des autoroutes I). 

Courrier électronique 

En votre absence, TELESTRAT peut enregis¬ 
trer des messages grâce à un logiciel "Boîte 
aux lettres" intégré. Vous relisez ces mes- 
sagez chez vous ou à distance, par un code 
d'accès. 


Transmissions entre deux 
ordinateurs personnels TELESTRAT 
Echangez vos fichiers et vos programmes, le 
modem du Minitel est gratuit et d'une sûreté 
sans failles : il a le label des PTT. 

LES INTERFACES 

JOYSTICKS : Possibilité de connexion directe 
des manettes de jeux du marché, ou des 
manettes ORIC, au TELESTRAT. 

SORTIE RS 232 ; Connexion de tous les péri¬ 
phériques compatibles à ce standard univer¬ 
sel (modem, imprimante, etc.). 

SORTIE CENTRONICS PARALLELE : Avec 
cette interface, un autre grand standard des 
micro-ordinateurs est à votre disposition. 
EXTENSION CARTOUCHES ROM OU RAM 
(jusqu’à 64 ko) ; Augmentez la capacité 
mémoire du TELESTRAT ou connectez des 
cartouches ROM qui apportent des logiciels 
et des applications nouvelles (pilotage de plu¬ 
sieurs synthétiseurs avec l'interface MIDI 
intégrée... ). 

MINITEL : Toutes les applications télémati¬ 
ques avec le modem du MINITEL et les logi¬ 
ciels intégrés du TELESTRAT. 

MUSICAL INSTRUMENT DIGITAL INTER¬ 
FACE (MIDI) : Le standard de tous les instru¬ 
ments de musique électronique, nombreuses 
applications telles que extension de la 
mémoire de vos synthétiseurs, bibliothèques 
de sons, séquenceur polyphonique 16 voix, 
écriture des notes jouées au clavier (logiciels 


en cartouches ou sur disque). 
PERIPHERIQUES 

Il est possible de connecter n'importe quel 
élément de la famille des périphériques ORIC 
(nouveau lecteur, imprimante matricielle, 
mini-traceur couleur, manettes de jeu, modu¬ 
lateurs vidéo... ). 

Et tous les périphériques fonctionnant sur les 
interfaces universelles du TELESTRAT. 

CARACTERISTIQUES 
Unité centrale 

Mémoire utilisateur (RAM) 64 ko — ROM 48 
ko — micro-processeur M 6502A 8 bits — 
clavier AZERTY — contrôleur de disquettes 
— alimentation externe avec interrupteur — 
port d'extension cartouches — sortie vidéo 
Péritel — sortie écran huit couleurs, mode 
texte 28 lignes/40 colonnes, mode Haute 
Résolution 240 x 200 — générateur de sons, 
3 canaux indépendants, générateur d'enve¬ 
loppe. 

Fonctions Internes 

Détection de l'appel téléphonique — Basic de 
plus de 250 instructions — logiciels intégrés : 
émulation Minitel, serveur Minitel, éditeur de 
pages Vidéotex, création d'une suite de 
pages enchaînées (arborescence), noyau 
MIDI. 


^mèminc 


A compter du 1*' février 
Editions SORACOM 
La Haie de Pan 
35170 BRUZ 




INF'ORMATIÛUE 
E T 

NATURE 


I N F 0 N A T 
SERVEUR MINITEL 
90 95 21 00 
(sur MS-TEL) 


Roule de CAVAILLON 
13440 CABANNES 
Téléphone 90 95 20 04 


C 0 P Y T E L 


♦ COPYTEL est INCOMPARABLE, il relie 
ORIC-l/ATMOS au MINITEL, et mémorise 
VERITABLEtENT bO pages télétel. 

Il les relit avec plusieurs options: 
automatique, ligne/ligne, code/code, 
retour arriére, etc... 

Il les stocke sur disquettes. 

Il imprime INTESRALEtCNT les teites 
et graphismes et surtout ALLEGE très 
SENSIBLEMENT vos notes de téléphone. 

Logiciel COPYTEL. 250 F 

Cordon COPYTEL SIMPLE.50 F 

Cordon COPYTEL-ItPRIMANTE.80 F 

(précisez dise Jasmin ou Discoric) 


I N est un POINT DE VENTE AQIEE ORIC 
Catalogue sur demande ou sur INFONAT 


* EASYDISK (Jasmin). 250 F 

Déplacement TDOS, modifications secteurs 
20 fonctions pratiques et ultra-rapides. 

* NIBBLE (Discoric). 250 F 

lecture, modification, écriture, analyse 
des pistes, secteurs et gaps. 

* BD-DISK (Discoric). 250 F 

Transfert de cassettes vers disquettes. 

* JASMITEL (Jasmin ou Discoric).... 300 F 
Pour EMULER un MINITEL avec un DTL 2000. 
Réception des pages Télétel sur ORIC 
avec graphismes, mémorisation, stockage 
sur disquette et impression intégrale. 
Transfert aisé de programmes par modems. 


MS - TEL 

* MS-TEL et sa détection d’appel vous 
permet de transformer l’ensemble 
ATMOS + JASMIN ou DISCORIC ♦ MINITR 
en MICRO-SERVEWt une voie. 

Utilisez 100 nouvelles instructions 
dans un progamme BASIC pour réaliser 
dessins, graphismes, animations, 
répondeur, messageries, publicités, 
catalogues de produits, informations 
prises de commandes, jeui, etc... 

MS-ATMOS propose les mimes fonctions 
si vous possédez un modem DTL 2000 f- 

MS-TEL + cordon + détection... 700 F 

MS-ATMOS. 500 F 

(précisez dise Jasmin ou Discoric) 


« BON DE COttlANDE * 
Commande possible par 
MlNITa 


Nom et Adresse 


Désignation 


Qté 


PU 


PT 


Frais de port ♦ 15 F 
Contre remboursement ♦ 40 F 
TOTAL à payer : 
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Tous les programmes de THEORIC/ groupés par deux numéros sur une disquette. Plus de perte de temps 
pour les taper... Existe pour le moment en JASMIN seulement. 

Le prix : 135 F pour les abonnés (joindre impérotivement l'étiquette), 165 F pour les autres. 
Avertissement : les programmes stockés sur ces disquettes sont tels que parus dans THEORIC. A vous de les 
adapter à vos besoins et au fonctionnement sur disque lorsque nécessaire. 


N° 1 THEORIC n“ 4 et 5 
N® 2 THEORIC n° 6 et 7 
N» 3 THEORIC n“ 8 et 9 
N» 4 THEORIC n° 10 et 12 
N® 5 THEORIC n“ 13 et 14 
N® 6 THEORIC n° 15 et 16 
N“ HS THEORIC HORS SERIE 
(n» 11) 



VOLUME I TO 




L 

FTDOS3-2.SyS 

S 

62 

SECTORS 

U 

SP 1ROGRA.BA6 

S 

6 

SECTORS 

U 

TEST .BAS 

S 

2 

SECTORS 

U 

DOUBLESP.BAS 

S 

7 

SECTORS 

U 

CARSPEC .BAS 

S 

e 

SECTORS 

U 

CHORAL .BAS 

s 

19 

SECTORS 

u 

POULE .BAS 

s 

61 

SECTORS 

U 

TRONl .BAS 

s 

30 

SECTORS 

u 

TRONDATA. BAS 

s 

17 

SECTORS 

u 

TRON2 .BIN 

s 

4 

SECTORS 

u 

O1TR0N2 .BIN 

s 

4 

SECTORS 

u 

MUS 1 COR 1 .BAS 

è 

66 

SECTORS 


U 

CHARGHEX.BAS 

S 

11 

SECTORS 

L 

TO .BAS 

S 

4 

SECTORS 

U 

EDITSECT.BAS 

s 

15 

SECTORS 

U 

MOTEUR .BAS 

S 

26 

SECTORS 

U 

SUISSE .BAS 

s 

SI 

SECTORS 

u 

JASDISCO.BAS 

s 

8 

SECTORS 

u 

GP 100X2 .BAS 

S 

16 

SECTORS 

u 

GP1002NB.BAS 

s 

B 

SECTORS 

u 

BYTESAT .BAS 

S 

3 

SECTORS 

u 

BYTESOl .BAS 

s 

3 

SECTORS 

u 

TRAHIRES.BAS 

s 

19 

SECTORS 


215 SECTORS FREE 


BON DE COMMANDE 
DES DISQUEHES THEORIC 


Je commande les disquettes 1 2 3 4 5 HS 6 
Ci-joint : 135 F par disquette et mon étiquette abonné 
165 F par disquette cor je ne suis pas abonné 

Soit au total la somme de F réglée par chè¬ 

que ci-joint. 


NOM .Prénom 

Adresse. 

Code Postal .... Ville . 
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sauver le code objet). 
Une partie de la page 
4 est utilisée. Les 
programmes compilés 
sont compatibles 
ORIC-1 et ATMOS, 
car il n'est pas fait 
usage des routines en 
ROM (sauf si vous 
utilisez CALL I). 

Le gain de temps 
moyen, annoncé 


STAIRWAY MICRODATA 

Organise, à Tarbes, les 8, 9 et 10 
mars les "Journées de l'Informa¬ 
tique". 

Outre diverses présentations de 
logiciels et de matériels à voca¬ 
tion professionnelle ou familiale, 
le clou de la manifestation sera, 
sans nul doute, le TELESTRAT. 
Souhaitons que les lecteurs du 
sud de la France se rendent nom¬ 
breux à cette manifestation. 
STAIRWAY MICRODATA 
73 bd du Garigliano 
65000 TARBES 


La Fédération Française des Oeu¬ 
vres Laïques organise, les 22, 23 
et 24 mai à Ouheau, près de Bou¬ 
logne sur Mer, le Festival du Logi¬ 
ciel Educatif. 

Un concours, engageant toutes 
les réalisations personnelles, est 
ouvert à cette occasiôn, sur un 
sujet libre. Les logiciels doivent 
être des créations originales et 
personnelles. Le nombre de pro¬ 
grammes par personne n'est pas 
limité. 

Pour tout renseignement : 
FEDERATION DEPARTEMEN¬ 
TALE DES OEUVRES LAÏQUES 
Service Culturel 
1 route Nationale 
62131 VERQUIN 


"COMPILATEUR 

GRAPHIQUE" 

(ERE Informatique) 


Les animations 
graphiques en Basic 
posent toujours le 
problème de la lenteur 
du langage interprété. 
Ecrire un compilateur 
intégral n'est pas une 
mince affaire... ERE 
Informatique propose 
un compilateur 
"graphique" qui 
pourra résoudre 
certains problèmes, 
mais n'en attendez 
pas des merveilles : il 
est très limité. 
Néanmoins, si vous 
désirez écrire un 
"casse-briques" en 
Basic, vous pouvez 
juger de sa terrible 
efficacité. Le 
handicap d'un tel 
compilateur est qu'il 
est écrit en Basic et 
que le nombre des 
instructions 
compilables est limité. 
De plus, il faut 
respecter certains 
impératifs : une seule 
instruction par ligne, 
variables limitées à 2 
caractères, nombres 
entiers. Sont 
compilés : CURSET, 
PLOT, SCRN, POINT, 
mais pas CIRCLE, 
DRAW, CURMOV ou 
PATTERN. 

Le compilateur'se 
loge dans des lignes 
de Basic commençant 
en 65000. Le 
programme à compiler 
devra être écrit 
devant. La 
compilation a lieu en 
deux passes. Un point 
d'entrée est défini 
pour exécuter le 
programme compilé 
par un CALL (ou pour 


Plusieurs tableaux, 
toujours très colorés 
et bien animés, dans 
ce jeu au graphisme 
très soigné. 
L'animation est 
réussie. Les 
illustrations sonores 
n'ont pas été 
oubliées. Attention 
toutefois, la mission 
n'est pas facile I 


la notice, est de 
l'ordre de 200, par 
rapport au programme 
Basic équivalent. 


"XENON III" 
(UK) 


Xénon III est un jeu 
d'arcades de la 
génération des Xénon 
et Zorgon Revenge. A 
ce titre, il bénéficie de 
l'expérience des 
programmeurs ayant 
produit les tout 
premiers jeux 
"rapides" sur ORIC. 
Suite à une guerre 
interplanétaire sans 
merci, la planète 
RADON se trouve 
dans une situation 
écologique 

catastrophique. Votre 
mission consiste à 
explorer, à bord d'un 
vaisseau, les planètes 
voisines. 
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D ans la série "Les utilitaires en folies", transférez votre 
écran TEXT en HIRES I Vous pourrez ainsi perdre 8 k- 
octets au lieu de 2 k-octets pour voir la môme chose à 
l'écran. 


ORGANIGRAMME 


Mais soyons sérieux, je vous pro¬ 
pose aujourd'hui plusieurs petits 
programmes qui, reliés entre eux, 
permettent de transférer l'écran 
TEXT (2 k-octets) en HIRES (8 k- 
octets). 

Ceci est, à première vue, 
absurde, étant donné le surplus 
de mémoire que cela occasionne, 
et pourtant ce n'est pas aussi 
simple que cela. 

Ce programme va surtout intéres¬ 
ser les possesseurs' d'impri¬ 
mante. En effet, il y a déjà eu, 
dans THEORIC, de multiples pro¬ 
grammes de copie d'écran 
HIRES, mais peu d'écran TEXT. 
Vous me direz que ceci est nor¬ 
mal puisqu'il suffit, en mode 
TEXT, de prendre le code ASCII 
de chaque caractère affiché à 
l'écran et de faire un LPRINT. 
Mais le problème se corse lorsque 
l'on veut copier un écran TEXT 
où les caractères sont redéfinis, 
où il devient impossible de récu¬ 
pérer le code ASCII dont le des¬ 
sin n'a plus rien à voir avec le 
code ASCII de votre imprimante. 
C'est pourquoi je vous propose 
un programme qui transfère 
l'écran TEXT en HIRES et trans¬ 
forme ainsi les caractères en série 
de bits. 

De ce fait, n'importe quel pro¬ 
gramme de copie d'écran HIRES 
(déjà publiés dans THEORIC) 
vous permet de copier votre 
ancien écran TEXT sur papier. 

Il devient ainsi possible de lister 
toutes les sortes d'écrans TEXT, 
notamment ceux que l'on trouve 


dans certains programmes de 
jeux, qui, jusqu'alors étaient 
impossibles à copier. 

Le programme de copie est 
composé de plusieurs petites rou¬ 
tines machine dont : 

a) Un programme de tranfert de 
l'écran TEXT en RAM (pro¬ 
gramme TEXRAM). 

b) Un programme de transfert de 
l'écran TEXT ainsi sauvegardé en 
RAM vers l'HIRES (programme 
RAMHIR). 

c) Un programme de synthèse. 

d) Un programme Basic qui effec¬ 
tue la même chose que les trois 
premiers programmes pour vous 
permettre de vérifier qu'il est 
peut-être fastidieux de taper un 
programme machine mais "qu'on 
y gagne" au bout du compte. 

PROGRAMME a 

Transfert de l'écran TEXT en 
RAM 

RAPPEL : L'écran TEXT se trouve 
de # BB80 à # BFEO, soit # 460 = 
1120 octets et 1120 = 5 x 224 = 
#05 X #E0. 
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Programme source : TEXRAM. 
SRC 


Il est bien entendu possible de 
changer la directive d'origine, 



ainsi que l'adresse de transfert de 
l'écran (ici &9300). 

Si l'on n'a pas modifié "l'ORG", 
le programme objet se trouve 
entre les adresses &9250 et 
&9285. 

Programme en DATA : TEXRAM. 
DAT 

Pour ceux qui n'ont pas d'assem¬ 
bleur, voici le même programme 
mais en DATA. Un "RUN" suffit 
pour "lancer l'assemblage". 

UTILISATION DU 
PROGRAMME MACHINE 

CALL # 9250 entraîne le transfert 
de l'écran TEXT (#BB80 à 
#BFDF) en RAM de #9300 à 
#9760. 

Ce programme peut bien entendu 
être utilisé dans vos programmes 
personnels, chaque fois que vous 
voulez sauvegarder un écran 
TEXT. 


PROGRAMME b 
Nous allons maintenant entrer 
dans le cœur de l'action avec le 
programme RAMHIR. 

Celui-ci effectue le transfert de 
l'écran TEXT, sauvegardé en 
RAM par le programme TEX¬ 
RAM, dans l'écran MIRES. 

NOTE : Le programme recopie 
toutes les données de l'écran 
TEXT (couleur, caractères graphi¬ 
ques, clignotants) sauf la DOU¬ 
BLE HAUTEUR où l'affichage 
d'un caractère en double hauteur 
sera remplacé par deux caractè¬ 
res simple hauteur, positionnés 
l'un sur l'autre. 

Il ne tiendra qu'à vous de modi¬ 
fier le programme afin de remé¬ 
dier à ce "petit défaut"... 

Pour vous donner une idée du 
fonctionnement du programme, 
voici l'organigramme de celui-ci. 


ORGANIGRAMME 


SPIN20 


SPCALH 

CALCUL ADRESSE MIRES OU POKE 


SPAFCS 

Affichage du caractère graphique 
dans l'écran MIRES 


Gil) 
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Programme source : RAMHIR. 

1320 ; 

ADRESSE MEMOIRE #9300 

1140 N=0 

SRC 

1330 î 


1150 F0RI=#9250T0#9285 STEP6 

Après assemblage, le programme 

1340 ' 

LDA #$92 

1160 S=0 ’ somE=o 

objet se trouve entre les adresses 

1350 ' 

LDX #iFF 

1170 F0RJ=0T05 

#9100 et #9224. 

1360 ' 

STA ARIVEH 

1180 READA$:A=VAL('#'+A$) 


1370 ' 

STX ARIVEL 

1190 S=S+A ’SOMME =SOMME+VALEUR 


1380 ; 


1200 POKEI+J.A 


1390 ; 

PROGRAMME TRANSFERT 

1210 NEXTJ 


1400 ; 


1220.AF$='LIGNE No '+STR#(2000+(N*10)) 


UTILISATION : Un CALL # 9219 
suffit (ceci s'il n'y a pas eu de 
modification de la directive d'ori¬ 
gine). 

Ce programme peut être utilisé 
seul, il faut pour cela avoir 
chargé, à partir de l'adresse 
&9300 l'écran TEXT à transférer. 
(Pour les possesseurs de lecteur 
de disquette ORIC, rien de plus 
facile, un (LOAD "ECR",A 
#93001 et la chose est faite). 
Ensuite, il faut faire MIRES puis 
CALL # 921 9 et le transfert s'ef¬ 
fectue. 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 


■PROG: LDX 
■BL0CSU:LDY 


1410 
1420 
1430 ■ 

1440 ‘OCSUIVtLDA 
1450 • STA 


#♦05 

«tEO 

(DEPARL),Y 

(ARIVED.Y 


PROGRAMME DE TRANSFERT 
D’UN ECRAN TEXT 
(#BB80 a #BFE0) 

EN MEMOIRE 
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1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 


DEY 

BNE OCSUIV 
AR1VE=ARIVE<#E0 


■ ac 

• LDA 

■ ADC 

■ BCC 

• INC 
•SOPOIFtSTA 


ARIVEL 

#$E0 

SOPOIF 

ARIVEH 

ARIVEL 


DEPAR=DEPAR+#£0 

ac 

LDA DEPARL 
ADC «iEO 
BCC S0P0I2 
INC DEPARH 
■S0P0I2:STA DEPARL 


1100 

PROGRAMME SOURCE MONASM 

1660 ■ 

DEX 

1110 

— 

1670 ' 

BNE BLOCSU 

1120 


1680 ' 

RTS 

1130 


1690 ; 


1140 

DEFINITIONS VARIABLES 

1700 ; 

FIN PROGRAmE 

1150 


1710 ; 


1160 

DEPARL ;EC|U $52 



1170 

DEPARH:EQÜ DEPARL+1 

1000 REM 

— 

1180 

ARIVEL:EQU #50 

1010 REM 


1190 

ARIVEH:EQU ARIVEL+1 

1020 REM 


1200 


1030 REM 

PROGRAMME DE TRANSFERT 

1210 

INITIALISATION VARIABLES 

1040 REM 

D’UN ECRAN TEXT 

1220 


1050 REM 

(#BB80 a #6FE0) 

1230 

ORG $9250 

1060 REM 

EN MEMOIRE 

1240 


1070 REM 


1250 

ADRESSE ECRAN #BB80 

1080 REM 

(01985 A.TORTOSA 

1260 


1090 REM 


1270 

LDA #$B6 

1100 REM 

PROGRAMME SOURCE MONASM 

1280 

LDX #i7F 

1110 REM = 

— 

1290 

STA DEPARH 

1120 REM 


1300 

STX DEPARL 

1130 HIMEM#4FFF:CLS ^ 


:PLOT10,2,AF$ 

1230 READC 

1240 IFCOBTHENPRINT’ERREUR A LA LIGNE 
■;20aO+(N*10):ST0P 
1250 N=N*1 
1260 NEXT 

1270 PL0T2,10,'PROGRAMME RENTRE SANS 
ERREUR...' 

1280 PL0T4,15,'ADRESSE DEBUT =#9250' 
1290 PL0T4,17,'ADRESSE FIN =#9285' 
1300 END 

1310 REM ============== 

1320 REM DONNEES PROGRAMME 
1330 REM ============= 

2000 DATA A9.BB,A2,7F,85,53,861 
2010 DATA 86,52,A9,92,A2,FF,948 
2020 DATA 85.51,86,50,A2,05,595 
2030 DATA AO,EO,81,52,91,50,868 
2040 DATA 88.D0,F9,18,A5,50,862 
2050 DATA 69,E0,90,02,E6,51,786 
2060 DATA 85,50,18,A5,52,69,589 
2070 DATA E0,90,02,E6,53,85,816 
2080 DATA 52,CA,DO,DE,60,B9,995 
2090 REM ============= 


1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 


PROGRAMME DE TRANSFERT 
D’UN ECRAN TEXT,PRECEDEMMENT 
SAUVEGARDE EN MEMOIRE, 

VERS L’ECRAN MIRES 

(01985 A.TORTOSA 

SOURCE POUR ASSEMBLEUR MONASM 


ADRESSE DEBUT ECRAN TEXTE 
OBLIGATOIREMENT DIFFERENTE 
DE «BBSO 





















1200 ’ECRANlrEQU *50 
1210 'ECRANHrEQU ECRANL+1 
1220 ; 

1230 ; AS=PEEK(ECRAN TEXTE) 

1240 ; ASC=AS AND i*7F 
1250 ; 

1260 'AS: EQU ECRANL+2 

1270 ‘ASC: EQU AS+1 
1280 ; 

1290 ; 

1300 ; 

1310 •ADDCAH;EQU AS+2 
1320 'RT: EQU AS+3 
1330 'ADHlRLrEQU RT+1 
1340 •ADH1RH;EQU ADHIRL+1 
1350 ■ADCARL:EQU ADHIRL+2 
1360 'ADCARHiEQU ADCARL+1 
1370 '74813: EQU ADCARL+2 
1380 ; 

1390 ; INITIALISATION 
1400 ; 

1410 • ORG *9100 

1420 'TABLl: DFB *00,01,02,03,05,06,07 

1430 ■ DFB *08,0A.0B,0C,0D.OF,10 

1440' DFB *11,12,14,15,16,17 

1450' DFB *19,1A,1B,1C,1E 

1460 '74812: DFB *00,40,80,00 

1470 ; 

1480 ; INITIALISATION VARIABLES 
1490 ; 

1500 'DEBPRO:LDA #*99 

1510 ' SEI 

1520 • STA ADDCAH 

1530 ' LDX #*00 

1540 'COLSUI:LDY #*00 

1550 ’LIGSUhLDA (ECRANL),Y 

1560 ' STA AS 

1570 ' TXA 

1580 ' PHA 

1590 ' TYA 

1600 • PHA 

1610 ' JSR SPANAS 

1620 ' PLA 

1630 ■ TAY 

1640 ' PLA 

1650 ' TAX 

1660 ' INY 

1670 ' CPY #*28 

1680 ' BNE LIGSUI 

1690 ' LDA #*99 

1700 ' STA ADDCAH 

1710 ' CLC 

1720 ' LDA ECRANL 

1730 ' ADC #*28 


1740 ' BCC NOFORT 

1750 ' INC ECRANH 

1760 'NOFORT:STA ECRANL 
1770 ' INX 

1780 ' CPX #*19 

1790 ' BNE COLSUI 

1800 ' CLI 

1810 ' RTS 

1820 ;- 

1830 ; 

1840 ; ANALYSE AS=PEEK(ECRAN) 

1850 ; TESTS: AS=*20 (32) SPACE 

1860 ; AS>*20 CAR ASCII 

1870 ; AS<*20 CAR CONTROL 

1880 ; 

1890 ; ...ET BRANCHEÆNT AUX 
1900 ;SOUS-PROGRAMMES CORRESPONDANTS 
1910 ; 

1920 ;- 

1930 'SPANAS:LDA AS 
1940 ' AND #*7F 

1950 ' STA ASC 

1960 ' CMP #*20 

1970 ' BNE DIF32 

1980 ' RTS 

1990 'DIF32; AND #*E0 

2000 ' BNE SUP32 

2010 ' JMP SPIN20 

201'0 'SUP32: JMP SPSU20 

2030 ;-^- 

2040 ; 

2050 : SP PEEKINF*20 

2060 ; 

2070 ; PEEK(ECRAN)=CARACTERE DE 
2080 ; CCWTROLE 

2090 ; 

2100 ;- 

2110 'SPIN20:JSR SPCALH 
2120 ■ LDX #*99 

2130 ' LDA ASC 

2140 ' AND #*F8 

2150 ' CMP #*08 

2160 ' BNE NOESC 

2170 ' LDA ASC 

2180 ' AND #*01 

2190 ' BEQ NOPAIR 

2200 ' TXA 

2210 ' ORA #*04 

2220 ' TAX 

2230 'NOPAIR:STX ADDCAH 
2240 'NOESC: JMP SPAFCA 

2250 :- 

2260 ; 

2270 ; SP PEEKSUP*20 


2280 ; 

2290 ; PEEK(ECfiAN)=CARACTERE ASCII 
2300 ; 

2310 ;- 

2320 'SPSU20:JSR SPCALH 
2330 ' LDX #*40 

2340 ' LDA AS 

2350 ' AND #*80 

2360 ' BEQ ASIN80 

2370 ' ORA HCO 

2380 ' TAX 

2390 'ASIN80:STX RT 
2400 ' JSR SPCARM 

2410 ' JMP SPAFCS 

2420 ;-:- 

2430 ; 

2440 ; SP CALCUL ADHIRES 
2450 : 


^*♦00 , 



2470 'SPCALH:LDA 

TABLl,X 

2480 ' 

STA 

ADHIRH 

2490 ' 

TXA 


2500 ' 

AND 

#*03 

2510 ' 

TAX 


2520 ' 

LDA 

TABL2,X 

2530 ' 

STA 

ADHIRL 

2540 ' 

CLC 


2550 ' 

LDA 

ADHIRH 

2560 ' 

ADC 

#*A0 

2570 ' 

STA 

ADHIRH 

2580 ' 

TYA 


2590 ' 

CLC 


2600 ' 

ADC 

ADHIRL 

2610 ' 

BCC 

NOB 

2620 ' 

INC 

ADHIRH 

2630 'NOB; 

STA 

ADHIRL 

2640 ' 

RTS 



2650 ;- 

2660 ; 


2670 ; 
2680 ; 

SP CALCUL ADCARACTERE EN RAM 

2690 ;— 



2700 'SPCARM:LDA 

ASC 

2710 ' 

SEC 


2720 ' 

SBC 

#*20 

2730 ' 

LDX 

MOO 

2740 ' 

STX 

ADCARH 

2750 'L1 

: CLC 


2760 ' 

ROL 


2770 ' 

ROL 

ADCARH 

2780 ' 

INX 


2790 ' 

CPX 

#*03 

2800 • 

BNE 

L1 

2810 ' 

STA 

ADCARL 














2820 ' 
2830 
28A0 ' 
2850 
2860 ' 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 


CLC 

LDA ADCARH 
ADC ADDCAH 
STA ADCARH 
RTS 


SP D’AFFICHAŒ DU 
CARACTERE ESCAPE 
[ CHR«(27) ] 


REESC: 

FIRSTP: 


’SPAFCA:LDX W08 
LDA liOO 
TAY 

' BEQ FIRSTP 

LDA M2e 
;CLC 
ADC AOHIRL 
BCC ESCBA 
INC ADHIRH 
ESCBA: STA ADHIRL 
LDA ASC 

STA (ADHIRL),Y 
DEX 

BNE REESC 
RTS 


3090 ;— 
3100 ; 
3110 ; 
3120 ; 
3130 ; 
3140 ;— 


SP D’AFFICHAGE D’UN 
CARACTERE ASCII 


3150 'SPAFCS 
3160 • 

3170 • 

3180 •REASC: 
3190 ■ 

3200 ■ 

3210 • 

3220 • 

3230 • 

3240 ■ 

3250 • 

3260 ’ASCBA: 
3270 ■ 

3280 * 

3290 • 

3300 ■ 

3310 • 

3320 ■ 

3330 ■ 

3340 ’NOFIRS 
3350 ■ 

3360 • 


LDY i»00 
LDX «28 
STY TABL3 
LDA (ADCARL),Y 
ORA RT 
PHA 

LDA TABL3 

ac 

ADC ADHIRL 
BCC ASCBA 
INC ADHIRH 
STA ADHIRL 
PLA 

STY SAVY 
LDY «00 
STA (ADHIRL),Y 
LDY SAVY 
BNE NOFIRS 
STX TABL3 
ilNY 

CPY «08 
BNE REASC 


3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 


• RTS 

•SAVY: DFBiO 


; DEBUT PROGRAHME 

•PRO: LDA «X 

• LDX «93 

’ STA ECRANL 

• STX ECRANH 

• JHP DEBPRO 

1 



DEB=i91X 

: FIN PROGRAHME 

FIN=)W225 


GO =#9219 


1000 REH - 

1010 REH 
1020 REH 

1030 REH PR06RAHME DE TRANSFERT D’UN 
1040 REH ECRAN ’TEXT’.PRECEDEHHENT 
SAUVEGARDE EN MEHOIRE, 
VERS L’ECRAN HIRES 


(01985 A.TORTOSA 


VERSION HACHINE 'DATAS’ 


1050 REH 
1060 REH 
1070 REH 
1080 REH 
1090 REH 
1100 REH 

1110 REH - 

1120 REH 

1130 HIHEHi6FFF:CLS 
1140 N=0 

1150 FORI=#9100TO(W225 STEP6 
1160 S=0 ’ S0HHE=0 
1170 FOfiJ=0TO5 
1180 READA$:A=VALCi**A$) 

1190 S=S+A ’SOHME =SOHHE+VALEUR 
1200 POKEI+J.A 
1210 NEXTJ 

1220 AF»=*LIGNE No •+STR«(2000+(N*10)) 
:PL0T10,2,AF$ 

1230 READC 

1240 IFCOSTHENPRINT’ERREUR A LA LIGNE 
•î2000+(N*10):ST0P 
1250 N=N+1 
1260 NEXT 

1270 PL0T2,10,•PROGRAMME RENTRE SANS 
ERREUR...’ 

1280 PL0T4,15,'ADRESSE DEBUT =#9100’ 
1290 PL0T4,17,'ADRESSE FIN =)W225’ 
1300 END 
1970 REH 


1980 REH 
1990 REH 
2000 DATA 
2010 DATA 
2020 DATA 
2030 DATA 
2040 DATA 
2050 DATA 
2060 DATA 
2070 DATA 
2080 DATA 
2090 DATA 
2100 DATA 
2110 DATA 
2120 DATA 
2130 DATA 
2140 DATA 
2150 DATA 
2160 DATA 
2170 DATA 
2180 DATA 
2190 DATA 
2200 DATA 
2210 DATA 
2220 DATA 
2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2340 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2390 DATA 
2400 DATA 
2410 DATA 
2420 DATA 
2430 DATA 
2440 DATA 
2450 DATA 
2460 DATA 
2470 DATA 
2480 DATA 
2490 REH 
2500 REH 
2510 REH 
2520 REH 


DOftCES PROGRAmE 


00,01,02,03,05,06,17 

O7,0e,0A,0B,0C,OD,61 

OF,10,11,12,14,15,107 

16,17,19,1A,1B,1C,151 

1E,00,40,80,CO,A9,583 

99,78,85,54,A2,00,652 

A0,00,B1,50,85,52,632 

8A,48,98,48,20,50,546 

91,68,A8,68,AA,C8,891 

C0,28,D0,EC,A9,99,998 

85.54.18, A5,50,69,591 
28,90,02,E6,51,85,630 
50,EB,E0,19,D0,D6,9Ô3 

58.60, A5,52,29,7F,599 
85,53,C9,20,00,01,658 
60,29,E0,DO,03,4C,648 
65,91,4C,81,91,20,628 
97,91,A2,99,A5,53,859 
29,F8,C9,08,D0,0C,718 
A5,53,29,01,F0,04,534 
SA,09,04,AA,86,54,539 
4C,03,91,20,97,91,760 
A2,40,A5,52,29,80,642 
FO,03,09,CO,AA.86,748 
55,20,B7,91,4C,ED,758 
91,BD,00,91,85,57,699 
8A,29,03,AA,BD,19,566 

91.85.56.18, A5,57,640 
69,A0,85,57,98,18,661 
65,56,90,02,E6,57,650 

85.56.60, A5,53,38,619 
E9,20,A2,00,86,59,650 
1B,2A,26,59,EB,E0,649 
03,D0,F7,85,58,18,703 
A5,59,65,54,85,59,661 
60,A2,08,A9,00,A8,603 
F0,02,A9,28,18,65,576 
56,90,02,E6,57,85,682 
56,A5,53,91,56, CA,767 
DO,EE,60,AO,00,A2,864 
28,84,5A,B1,58,05,532 
55,48,A5,5A,18,65,537 
56,90,02,E6,57,85,682 
56,68,8C,18,92,A0,660 
00,91,56,AC,18,92,573 
D0,02,86,5A,C8,00,826 
08,DO,DC,60,00,A9,701 
00,A2,93,85,50,86,656 
51,4C,1D,91,F7,AA,748 


FIN 



A SUIVRE 




























CONVERSION 

BRUIRE IWA 


André CHENIERE 

A ndré CHENIERE est l'auteur d'un "best-seller" de 
l'ORIC : "Le Manuel de Référence", édité par ISOSOFT. 
Pour le plus grand plaisir des iecteurs de THEORIC, il 
nous propose deux utilitoires dont le premier est pubiié ici. 


Lorsqu'on écrit de petits pro¬ 
grammes en langage machine, il 
est souvent nécessaire — ne 


serait-ce que pour les proposer 
aux lecteurs de THEORIC — de 
construire un programme de 


chargement en Basic. 

Il est naturel de faire exécuter par 
la machine cette véritable corvée 
qu'est la fabrication des lignes 
DATA. 

Un tel utilitaire, semi-basic, figu¬ 
rait dans mon Manuel de Réfé¬ 
rence. Je ne le renie pas, car il 


CE N'EST PAS PARCE QUE QUE L'ON A LES MEILLEURS PRODUITS JAMAIS DEVELOPPES POUR L'ORIC ATMOS ... 

QU'IL FAUT ETRE PLUS CHER ET SE PRENDRE AU SERIEUX. 


Le manuel de REFERENCE DE L'ORIC ATMOS . Il ■ fallu à André Chéniéra paa moina da 200 pagaa pour écrira aon éluda axhaustiva al 
uniqua daa aniralliaa da l'OrIc Almoa : Eluda du programma Baalc, InlUallon au langaga machina, daacripllon de l'Inlerprélaur, allas da la 
ROM. L'ouvrage élall épuisé (al noua avions lall nos trais), mais voua en redemandiez encore al loujoura... Alors, qu'on sa la dise, nouvelle 
édillon al lirsga llmllé au prix malnlanu da 138 Francs TTC. 

Le manuel de REFERENCE DE L'ORIC ATMOS -TRAVAUX PRATIQUES . ParlanI du principe que " la mise an application pratiqua des 
notions Ihéoriquea acquises esl la dernier pas à franchir dans la matiriaa lolala da son mlcro-ordlnaleur", André Chsnièra vous convia à 
programmer avec lui dans ce livra bourré d'aslucaa al da listings (don! Il affirma également qu'il sera son damier sur l'Almos) et qui vaut 120 
Francs TTC. 

LM PLUS Ce logiciel da compilation baalc est le seul à pouvoir voua dispenser da la lecture da certains chapitres des deux ouvrages cl- 
dessus. Ecrivez votre programme en Basic, comme al de rien n'étalt, et LM Plus le traduira en langage machine autorisant une exécution 
sept fols plus rapide. Il reconnaît la plupart des Instructions basic à l'excsptlon de celles traitant des nombres non entiers telles que SIN, 
EXP...A voua les avantages du langage machine, sans rien y connaître, au prix de 95 Francs TTC. 

As DES As ou trois en un pour le développeur de programmes an asssmbleur ; l’éditeur pour saisir et corriger du texte source, 
l'assembleur pour le traduire en codes machine, le désassembleur pour décortiquer les programmes écrits en langage machine. Edition sur 
Imprimante à tout moment, économie en RAM (6Ko) et en Francs TTC 75. 

ORISCRIBE . Il est vrai que lorsqu'on a un Macintosh, Il vaut mieux utiliser Mac Write. Mais si l'on a un Oric Atmos, une Imprimante correcte et 
un rapport ou du courrier à faire. Il serait peu judicieux de se passer d'OrIscrIbe : Saisie au kilométra, copie, déplacement, effacement de 
blocs de texte, recherche et remplacement de mots, affichage à l'écran de 729 lignes de 40 caractères ou 486 lignes de 60 caractères, 
margination, justification, numérotation, saut de page... et tout ça pour 150 Francs TTC. 

Edit plus . Pour vos programmes écrits en bssic, un éditeur pleine page et plein d'astuces permettant, entre autrea, la renumérolatlon 
sélective du programme baalc y compris les goto et les gosub, le compactage du programme, un clavier buflerlsé pour une frappe plus 
rapide, la numérotation automatique des lignes. Edit plus est vraiment Idéal pour ceux qui enseignent le basic car II esl livré avec un basic 
francisé, le tout au prix Indissociable de 75 France TTC. 


Tous nos logiciels sont livrés avsc une notice explicative complète, dupliqués sur banc spécial permettant la plus grande qualité 
d'enregistrement et sont lacllemsnl adaptables aux micro -drives et types d'imprimantes sur le marché. 


Vous que nous avons convaincu de passer commande , soyez-en remercié, n'omettez pas de remplir lisiblement le bon de commande cl- 
dessous sans oublier la participation aux frala de port 



igogQp.^ BON DE COMMANDE 

BP 22 Mdra-Erlgné 4SI 30 La* Ponla-da-Cé 

Ote 

OESIQNATION DES PRODUITS 

PRIX 

ij^rrAiRE 

PRIX TOTAL 






Nom : Prénom : 

Adreita : 

C.P. •! VIII*: 
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sous TOTAL 

* 
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+ 

Lee prix tort donnée TTC. lia tort indicatils al peuvent élr* modifiée tane préavw 
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avait un certain intérêt pédagogi¬ 
que. 

Il montrait bien comment une 
ligne Basic, placée dans le buffer 
d'entrée, au fur et à mesure de 
la frappe au clavier, est analysée 
et codée puis rangée en mémoire 
par l'interpréteur. 

Le programme d'aujourd'hui 
applique la même méthode. La 
ligne DATA est composée dans 
le buffer avant mise en place. 
Puisqu'elle est codée cette fois, 
on pouvait la placer directement 
en zone Basic. Le programme eut 
gagné en efficacité, sinon en 
concision. Disons que j'ai suivi 


une voie déjà tracée. 

Cette présente version est cepen¬ 
dant plus rationnelle. 

Grâce au langage machine pur, 
elle est au moins dix fois plus 
rapide ; la cohabitation avec les 
lignes DATA à construire est évi¬ 
tée. 

Une boucle de chargement 
READ, POKE adaptée est placée 
automatiquement avant le code 
en DATA. 

Une somme de contrôle, calculée 
depuis le début du bloc, est ins¬ 
crite en fin de ligne. Un test est 
inclus dans la boucle de charge¬ 
ment avec indication de la ligne 


erronée. 

Le programme occupe 423 
octets à partir de l'adresse 
# 9800. Cette situation convien¬ 
dra dans la plupart des cas. S'il 
fallait la changer, une dizaine 
d'adresses absolues internes 
seraient à modifier. 

MODE D'EMPLOI 

CALL # 9800, adr début, adr fin. 
Exemple : le programme essayé 
sur lui-même, Basic obtenu par 
CALL <19800, #9800, #99A6, 
il servira pour entrer le pro¬ 
gramme en mémoire. 



10 A=#9800:F=#99Aé>:L=100:REPEAT:FOR A=A TO A-H5;READ C» 

20 K=VAL ;S=S+K+65536* (S+K>65535) : IF A<=F THEN POKE A,K 

30 NEXTzREAD D:^: IF S=VAL ( "#") THEN L=L-*-5: UNTIL A>F:END 
40 PING: PRINT*'Erreur ligne";L 


100 
105 
110 
115 
120 
125 
130 
135 
140 
145 
150 
155 
lé>0 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



20,65 
D0,20 
84,78 
20,0F 
E0,98 
B0,03 
76,E6 
90,02 
E5,98 
DA, A6 
A4,9D 
F4,C3 
85,9C 
90,02 
98,20 
09,30 
05,0A 
41,35 
20, C3 
00,4B 
CC,4B 
35,33 
41,2C 
20,53 
D4,4C 
00, A6 
65,22 


,D0,20 

,53,E8 

,84,79 

,C7,A9 

» 


w # » r » 

A9,10 
,4C,71 
,76,A9 
,B1,72 
A9,2C 
,78,A4 
,85,C9 
,A0,3A 
,84,9D 
,E6,34 
,E5,98 
C9,3A 
,00,41 
,3A,4C 
,20,41 
D4,EB 
,CC,36 
,35,29 
,4B,00 
,D4,EB 
,CC,35 
3A,BA 


,53,E8,84 
84,74,85 
,B9,FF,98 
,08,A0,05 
,85,76,A6 
,C4,A9,35 
,20,91,76 
,48,18,65 
91,76,E6 
79,20,E0 
84,CA,69 
69,31,00 
20,08,C7 
4C,4D,98 
8A,48,4A 
90,02,69 
D4,23,39 
,04,31,30 
,CC,31,35 
,28,22,23 
, 3^S , , ^^3 

,3A,99,20 
,8F,05,lE 
28,22,23 
,3A,8C,20 
,22,45 


,70,85 
,75,A9 
» 

,85 


,91,9A 


„„,76 
»74,A4 

t 


/ -r , r-i-T 

I A0,00 
,E6,76 
,78,85 
,76,E6 
,98,98 
,3B,85 
,91,CE 
,20,5F 
,A5,74 
,4A,4A 
,06,A0 
,38,30 
,30,3A 
,3A,95 
,22,CC 
,36,CE 
,41,D5 
,00,90 
,22,CC 
,41,D3 




,71,84, 
,64,A0, 
I, C8 , C0 , 
,84,77, 
75,20, 
,85,76, 
,A2,10, 
,78,90, 
,72,00, 
,91,76, 
.,C7,90, 
;, 88 , 10 , 
,C5,A5, 
' C5,72, 
4A,20, 
00,91, 
30,3A, 
8B,3A, 
20,43, 
43,24, 
,28,53, 
,04,46, 
,3A,95, 
,44,24, 
46,3A 


72,85 
00,85 
A9,D0 
A6,70 
E0,98 
84,77 
20, D7 
02, E6 
02, E6 
20, B3 
01 ,C8 
Fa,A5 
33,69 
A5,75 
F0,98 
76, E6 
46, D4 
8D,20 
24,00 
29,3 A 
CC,4B 
20, C9 
20,44 
29,20 


,73,20 


,33,84 


,F6, 


. _,84 
,A4,71 
,20,D7 
,A9,91 
,98,A9 
79,68 
,73,CA 
,C6,A5 
,84,C8 
,A0,A4 
,05,85 
E5,73 
,68,29 
,76,60 
,23,39 
,41,D4 
,66,05 
,53,D4 
,03,36 
,20,B9 

,24 -3A 


,65,070D 
,34,0E47 
,9C,18D2 
,20,1F5F 
,98,27E5 
,91,2F58 
,00,3740 
,20,3DA8 
,D0,477A 
,9C,50A0 
,20,5932 
,A1,6226 
,33,6899 
,60,7098 
,0F,770F 
,2F,7CDE 
,39,80DF 
,41,8642 
,14,8A8D 
,53,9036 
,35,96C0 
,20,9C8B 
,99,A0AF 
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10 a=# 9800:F=#99A6:L=100;REPEAT:FOR A=A TO A+15:READ 
20 K=VAL("#"+Cÿ):S=S+K+65536*<S+K>65535): IF A<=F THEN POKE A,K 
30 NEXT:READ D^:IF S=VAL("#"+D*) THEN L=L+5:UNTIL A>F:END 
40 PING: PRINT’'Erreur ligne";L 


100 DATA 
105 DATA 
110 DATA 
115 DATA 
120 DATA 
125 DATA 
130 DATA 
135 DATA 
140 DATA 
145 DATA 
150 DATA 
155 DATA 
160 DATA 
165 DATA 
170 DATA 
175 DATA 
180 DATA 
185 DATA 
190 DATA 
195 DATA 
200 DATA 
205 DATA 
210 DATA 
215 DATA 
220 DATA 
225 DATA 
230 DATA 


20,D9,CF,20,9D,E7,84,70,85,71,84,72,85,73,20,D9,083D 
CF,20,9D,E7,a4,74,85,75,A9,64,A0,00,85,33,84,34,0FBF 
84,78,84,79,B9,FF,98,91,9A,C8,C0,A9,D0,F6,84,9C,1A4A 
20,3A,C7,A9,08,A0,05,85,76,84,77,A6,70,A4,71,20,2102 
E0,98,A9,10,85,76,A6,74,A4,75,20,E0,98,20,D7,98,2988 
B0,03,4C,75,C4,A9,35,A0,00,85,76,84,77,A9,91,91,30FF 
76,E6,76,A9,20,91,76,E6,76,A2,10,20,D7,98,A9,00,38E7 
90,02,B1,72,48,18,65,78,85,78,90,02,E6,79,68,20,3F4F 
E5,98,A9,2C,91,76,E6,76,E6,72,D0,02,E6,73,CA,D0,4921 
DA,A6,78,A4,79,20,E0,98,9a,91,76,20,DE,C6,A5,9C,5272 
A4,9D, 85, C9,84 , CA, 6*?, 3B, 85, C7,90,01 , C8,84, C8,20,5B04 
F8,C3,A0,3A,B9,31,00,91,CE,88,10,F8,A5,A0,A4,A1,63FC 
85,9C,84,9D,20,33,C7,20,6F,C5,A5,33,69,05,85,33,6AAA 
90,02,E6,34,4C,4D,98,A5,74,C5,72,A5,75,E5,73,60,72A9 
98,20,E5,98,SA,48,4A,4A,4A,4A,20,F0,98,68,29,0F,7920 
09,30,C9,3A,90,02,69,06,A0,00,91,76,E6,76,60,2F,7EEF 
05,0A,00,41,D4,23,39,38,30,30,3A,46,D4,23,39,39,82F0 
41,35,3A,4C,D4,31,30,30,3A,8B,3A,8D,20,41,D4,41,8853 
20,C3,20,41,CC,31,35,3A,95,20,43,24,00,66,05,14,8C9E 
00,4B,D4,EB,28,22,23,22,CC,43,24,29,3A,53,D4,53,9247 
CC,4B,CC,36,35,35,33,36,CE,28,53,CC,4B,D3,36,35,98D1 
35,33,35,29,3A , 99,20,41 , D5, D4,46,20, C9,20 , B9,20,9E9C 
41,2C,4B,00,8F,05,1E,00,90,3A,95,20,44,24,3A,99,A2C0 
20,53,D4,EB,28,22,23,22,CC,44,24,29,20,C9,20,4C,A833 
D4,4C,CC,35,3A,8C,20,41,D3,46,3A,80,00,A7,05,28,AE22 
00,A6,3A,BA,22,45,72,72,65,75,72,20,6C,69,67,6E,B41D 
65,22,3B,4C,00,00,00,00,00,00,00,00,00,00,00,00,B52B 


;Binaire-DATA 


+ 


ORG 19800 
OBJ «9800 


jTransfert lignes 
;Basic 10-40 


LINNUM =$33 


9824 B9 FF 98 LOADER LDA PRGM.Y 
9827 91 9A STA (TXTTAB),Y 
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BUF 

DEBC 

TEMP 

FINC 

PTR 

SUM 

CTR 

TXTTAB 

VARTAB 

STREND 

HIGHDS 

HIGHTR 

LOWTR 


BLTU 

READYl 

LINKST 

FNDLIN 

STPTRS 

CLEARC 

CHKCOM 

MKINT2 


7800 20 65 D0 GTADR 
9803 20 53 E8 
9806 84 70 
9808 85 71 
980A 84 72 
980C 85 73 
980E 20 65 D0 
9811 20 53 E8 
9814 84 74 
9816 85 75 


9818 A9 64 INIT 

981A A0 00 

981C 85 33 

9B1E 84 34 

9820 84 78 

9822 84 79 


9869 A2 10 CODE 
986B 20 D7 98 CODEl 
986E A9 00 

9870 90 02 
9872 B1 72 

9874 48 CSUM 

9875 18 
^876 65 78 


= $35 
= $70 
= $72 
= $74 
= $76 
= $78 
= $80 
= $9A 
= $9C 
= $A0 
= $C7 
= $C9 
= $CE 


;ATMOS 

; Oric-1 

=$C3F4 

;$C3F8 

=$C471 

;$C475 

=$C55F 

;$C56F 

=$C6B3 

;$C6DE 

=$C708 

;$C733 

=$C70F 

;$C73A 

=$D065 

;$CFD9 

=$E853 

;$E79D 


;Recueil adresses 
;dèbut et fin 

JSR CHKCOM 
OSR MKINT2 
STY DEBC 
STA DEBC+1 
STY TEMP 
STA TEMP+1 
JSR CHKCOM 
JSR MKINT2 
STY FINC 
STA FINC+1 

; Initialisation 

LDA «$64 
LDY «$00 
STA LINNUM 
STY LINNUM+1 
STY SUM 
STY SUM+1 
+ 

; 16 codes hexa 
;suivis de virgule 

LDX #$10 
JSR TESTF 
LDA «$00 
BCC CSUM 
LDA (TEMP),Y 
PHA 
CLC 

ADC SUM 


9829 C8 
982A C0 A9 
982C D0 F6 
9B2E 84 9C 

9830 20 0F C7 


9833 A9 08 
9835 A0 05 
9837 85 76 
9839 84 77 
983B A6 70 
983D A4 71 
983F 20 E0 98 
9842 A9 10 
9844 85 76 
9846 A6 74 
9848 A4 75 
984A 20 E0 98 


9855 

A9 

35 


DATA 

9857 

A0 

00 



9859 

85 

76 



985B 

84 

77 



985D 

A9 

91 



985F 

91 

76 



9861 

E6 

76 



9863 

A9 

20 


SPAC 

9865 

91 

76 



9867 

E6 

76 



98AD 

84 

C8 


STI 

98AF 

20 

F4 

C3 


98B2 

A0 

3A 



98B4 

B9 

31 

00 

ST2 

98B7 

91 

CE 



9BB9 

88 




98BA 

10 

F8 



98BC 

A5 

A0 



98BE 

A4 

Al 



98C0 

85 

9C 



98C2 

84 

9D 




INY 

CP Y «A9 
BNE LOADER 
STY VARTAB 
JSR CLEARC 

;Poke adr début et 
;fin en $508 et 510 

LDA «$08 
LDY #$05 
STA PTR 
STY PTR+1 
LDX DEBC 
LDY DEBC+1 
JSR POKADR 
LDA #$10 
STA PTR 
LDX FINC 
LDY FINC+1 
JSR POKADR 

jtest fin, retour 
;Ba5ic si fin 


;Construction des 
;lignes DATA dans 
;buffer d'entrée 


; Inscription code 
; ‘ DATA ' et espace 

LDA 

#$35 

LDY 

#$00 

STA 

PTR 

STY 

PTR + 1 

LDA 

#$91 

STA 

(PTR),Y 

INC 

PTR 

LDA 

#'■ " 

STA 

(PTR),Y 

INC 

PTR 

+ 


STY 

HIGHDS+1 

JSR 

BLTU 

LDY 

#$3A 

LDA 

BUF-4,Y 

STA 

(LOWTR),Y 

DEY 


BPL 

ST2 

LDA 

STREND 

LDY 

STREND+1 

STA 

VARTAB 

STY 

VARTAB+1 


984D 20 D7 98 NEWLIN JSR TESTF 
9850 B0 03 BCS DATA 

9852 4C 71 C4 JMP READYl 










9878 

85 

78 


STA SUI1 

9BC4 

20 

08 

C7 


JSR STPTRS 

987A 

90 

02 


BCC C0DE2 

98C7 

20 

5F 

C5 


JSR LINKST 

987C 

E6 

79 


INC SUfl + l 







987E 

68 


C0DE2 

PLA 






;inc numéro ligne 

987F 

20 

E5 98 


JSR POKHEX 






;C=0 après LINKST 

9882 

A9 

2C 

COMMA 

LDA 







9884 

91 

76 


STA (PTR),Y 

98CA 

A5 

33 


INCLN 

LDA LINNUH 

9886 

E6 

76 


INC PTR 

98CC 

69 

05 



ADC «$05 

9888 

E6 

72 


INC TEMP 

98CE 

85 

33 



STA LINNUM 

988A 

D0 

02 


8NE C0DE3 

98D0 

90 

02 



BCC NEXT 

988C 

E6 

73 


INC TEMP+l 

98D2 

E6 

34 



INC LINNUM+1 

9BBE 

CA 


C0DE3 

DEX 

98D4 

4C 

4D 

98 

NEXT 

JMP NEWLIN 

988F 

D0 

DA 


BNE CODEl 






; Sous-programmes 





; Inscrit somme de 
;contr5’le calculée 
;plus haut (CSUM) 






; test tin 





; et 00 tin de ligne 

98D7 

A5 

74 


TESTF 

LDA FINC 






98D9 

C5 

72 



CMP TEMP 

9891 

A6 

78 

CHKSUM 

LDX SUI1 

98DB 

A5 

75 



LDA FINC+1 

9893 

A4 

79 


LDY SUM+1 

90DD 

E5 

73 



SBC TEMP+l 

9895 

20 

E0 98 


JSR POKADR 

98DF 

60 




RTS 

9898 

98 


ZERO 

TVA 







9899 

91 

76 


STA (PTR),Y 






;Conver5ion et po 











;chittres hexa 





;Rangement ligne 

98E0 

98 



POKADR 

TVA 





;FNDLIN met -adr 

98E1 

20 

E5 

98 


JSR POKHEX 





;debut dans LOWTR 

98E4 

8A 




TXA 





;BLTU teste mémoire 
;et fixe STREND 

98E5 

48 



POKHEX 

PHA 





;transtert puis 

98E6 

4A 




LSR A 





jréglage ptrs et 

98E7 

4A 




LSR A 





;octet5 de chaînage 

9BE8 

4A 




LSR A 






98E9 

4A 




LSR A 

9898 

20 

83 C6 

STORE 

JSR FNDLIN 

98EA 

20 

F0 

98 


JSR POKE 

989E 

A5 

9C 


LDA VARTAB 

98ED 

68 




PLA 

98A0 

A4 

9D 


LDY VARTAB+1 

98EE 

29 

0F 



AND «$0F 

98A2 

85 

C9 


STA HI6HTR 

9BF0 

09 

30 


POKE 

ORA »$30 

98A4 

84 

CA 


STY HIGHTR+1 

98F2 

C9 

3A 



CMP «$3A 

9BA6 

69 

38 


ADC «$3B 

9BF4 

90 

02 



BCC POKEl 

98A8 

85 

C7 


STA HIGHDS 

98F6 

69 

06 



ADC «$06 

9BAA 

90 

01 


BCC STI 

9BF8 

A0 

00 


POKEl 

LDY <$00 

98AC 

C8 



INY 

98FA 

91 

76 



STA (PTR),Y 






9BFC 

E6 

76 



INC PTR 






98FE 

60 




RTS 



Ligneç 

Basic 

10-40 codées,recopiees en #501 par LOADER 

(9824) 



98FF: 

2F 05 

0A 00 41 D4 23 39 38 

30 30 

3A 

46 

D4 

23 39 




990F: 

39 41 

35 3A 4C D4 31 30 30 

3A 8B 

3A 

8D 

20 

41 D4 




991F: 

41 20 

C3 20 41 CC 31 35 3A 

95 20 

43 

24 

00 

66 05 




992F: 

14 00 

4B D4 EB 28 22 23 22 

CC 43 

24 

29 

3A 

53 D4 




993F: 

53 CC 

4B CC 36 35 35 33 36 

CE 28 

53 

CC 

4B 

D3 36 




994F: 

35 35 

33 35 29 3A 99 20 41 

DS D4 

46 

20 

C9 

20 B9 




995F: 

20 41 

2C 4B 00 8F 05 lE 00 

90 3A 

95 

20 

44 

24 3A 




996F: 

99 20 

53 D4 EB 28 22 23 22 

CC 44 

24 

29 

20 

C9 20 




997F; 

4C D4 

4C CC 35 3A 8C 20 41 

D3 46 

3A 

80 

00 

A7 05 

f 



998F: 

28 00 

A6 3A BA 22 45 72 72 

65 75 

72 

20 

6C 

69 67 




999F: 

6E 65 

22 3B 4C 00 00 00 ■ 


















E nfin une application pratique de la carte série parue 
dans le numéro 14 de THEORIC. 

De quoi s'agit-il ? Eh bien, d'un programme permettant 
le dialogue, par le clavier, entre deux Minitels. Il suffira que 
l'un des deux correspondants possède un ORIC-1 ou ATMOS 
avec ce programme en mémoire et, bien sûr, la carte série et 
le téléphone... 


Que les retardataires qui n'ont 
pas encore construit la carte se 
dépêchent (vous pouvez toujours 
demander à une âme charitable, 
qui s'y connaît un peu, de vous 
aider...) ! 

J'entends déjà des protestations 
qui s'élèvent : "Oui, mais nous, 
nous n'avons pas encore le Mini¬ 
tel I". C'est effectivement une 
raison valable, mais sachez que 
tôt ou tard il vous sera proposé 
gratuitement, ou que vous pou¬ 
vez de toute façon vous en pro¬ 
curer un, moyennant la somme 
de 85 F par mois, à votre agence 
commerciale (l'auteur de cet arti¬ 
cle n'a aucun lien avec les TELE¬ 
COM... ). 

POUR QUOI FAIRE ? 

De nombreuses applications peu¬ 
vent être envisagées à l'aide de 
ce système : envoi d'informa¬ 
tions plus faciles à écrire qu'à 


épéler, telles que A$=HEX $ 
(MID$(A$,ASB(F),2)), envoi de 
renseignements "discrets" que 
l'on ne préfère pas dire tout haut 
au téléphone. Sans compter 
votre vieille grand-mère, un peu 
dure d'oreille, à qui vous voulez 
transmettre votre nouvelle 
adresse... 

Il faut cependant noter que, lors¬ 
que la communication s'effec¬ 
tuera entre les Minitels, les télé¬ 
phones seront déconnectés, 
donc plus question de parler, et 
il faudra, dans ce cas, stopper le 
programme pour reprendre votre 
conversation. Par contre, votre 
appel ne sera pas coupé lors du 
rétablissement sur les appareils 
téléphoniques (si vous n'avez pas 
raccroché... ). 

MODE D'EMPLOI 

Venons-en au fait. Le pro¬ 
gramme. Il se compose de Basic 


et de langage machine (indispen¬ 
sable pour assurer une rapidité 
suffisante à l'ensemble). 

Que va-t-il se passer lors du 
démarrage du programme ? Si la 
carte série est branchée et si 
votre Minitel est sous tension, un 
C en vidéo inverse va apparaître 
en haut à droite de l'écran : votre 
Minitel est passé en mode 
connecté et envoie à votre cor¬ 
respondant, que vous aurez préa¬ 
lablement appelé, une fréquence 
de 1700 Hz, appelée PORTEUSE, 
qui lui permettra de se connecter 
également en appuyant sur la 
touche CONNEXION/FIN de son 
Minitel. Le programme attend 
que la connexion s'opère, puis 
efface l'écran des deux Minitels. 
A partir de ce moment, l'écran de 
l'ORIC ne servira plus à rien. 

Les écrans des deux Minitels sont 
alors partagés en deux parties, 
la partie supérieure pour la per¬ 
sonne que vous avez appelée, la 
partie inférieure pour vous. De 
plus, 3 lignes d'indications sont 
affichées : 

CNX/FIN : pour revenir au télé¬ 
phone. 

CORRECTION : efface le dernier 
caractère. 

ENVOI ; pour avoir la réponse. 
La communication ne se faisant 
que dans un seul sens à la fois. 


i 


i 
















pour des raisons de simplicité, la 
main est d'abord donnée au cor¬ 
respondant. 

Celui-ci sera invité à taper son 
message sous l'indication : 

TAPEZ VOTRE MESSAGE : 


où un curseur clignotant l'atten¬ 
dra, ainsi que 5 lignes pointillées 
qui devraient lui suffire pour s'ex¬ 
primer. 

Une fois son texte entré, il tape 
la touche ENVOI, et maintenant 



à vous de jouer. Vous voyez 
apparaître : 

REPONSE : 


Mais vous, votre avantage est de 
posséder un ORIC, alors pourquoi 
ne pas en profiter et ne pas se 
servir de son clavier, quand 
même plus agréable que celui du 
Minitel ? 

Vous taperez donc la réponse sur 
votre ORIC en vous rappelant 
que : 

CONTROL-E : Envoi de la 
réponse, repasse la main. 
CONTROL-C : Déconnexion, 
retour au téléphone. 

Les 4 flèches : Pour se déplacer 
dans l'écran. 

RETURN : Pour se replacer en 
début de ligne. 

DEL : Efface le dernier caractère 
entré. 

CONTROL-L ; Efface les deux 



écrans (à éviter... ). 

(Vous avez également la répéti¬ 
tion automatique des touches). 
Vous possédez donc beaucoup- 
plus de possibilités que l'autre 
personne en ligne. 

11 est à noter que le programme 
ne teste pas si plus de 5 lignes 
sont entrées. Sachez que, si vous 
continuez à taper au-delà de ces 
5 lignes, et que vous arrivez au 
bas de l'écran, vous reviendrez 
en ligne 1, au risque d'y effacer 
les indications qui s'y trouvent. 
Mais c'est délibérément que tout 
n'a pas été prévu dans ce logiciel. 
La volonté de l'auteur est de vous 
proposer : 

UN PROGRAMME OUTIL 

Le programme machine 

En effet, la partie langage 
machine vous permet d'utiliser 
trois nouvelles instructions : 

CALL#9900 TEXTE 
A AFFICHER 

vous permettra d'envoyer le mes¬ 
sage entre guillemets sur le Mini¬ 
tel, à la position courante du cur¬ 
seur. 

CALL#9900 (#41,# 1B,34) 

enverra les CODES placés entre 
parenthèses et séparés par une 
virgule. Ceux-ci pourront être en 
hexa ou en décimal. Vous pour¬ 
rez également envoyer des varia¬ 
bles définies auparavant. Comme 
par exemple : 

10 a = 48:B = 49 
20 CALL #9900 (A,B) 

ce qui aura pour effet d'afficher 

12 sur le Minitel. 

CALL #9900 ,A$ 

Comme vous l'avez compris, ceci 
aura pour action d'envoyer le 
contenu de la variable A$ sur le 
Minitel. Si A$ n'est pas définie, 
rien ne se passe. 

Quelques réserves cependant 
pour cette instruction : elle ne 
sera PAS CAPABLE de traiter ; 

10 A$ = "BONJOUR" 

20 B$ = "TOUT LE MONDE" 

30 CALL #9900 ,A$-t-B$ 

De toute façon, tout manque de 
respect pour cette commande. 


bu tout oubli d'une virgule, d'un 
guillemet ou encore d'une paren¬ 
thèse vous sera indiqué par l'ha¬ 
bituel "SYNTAX ERROR"... 
Notons que le ! n'a pas été uti¬ 
lisé afin de ne léser personne... 
D'autre part, cette partie de lan¬ 
gage machine est implantée en 

# 9900 et n'est relogeable qu'en 
prenant beaucoup de précau¬ 
tions, car elle se modifie d'elle- 
même. Le choix de cet emplace¬ 
ment a été fait en considérant 
l'inutilité de l'écran HIRES puis¬ 
que seul le Minitel est utilisé. 
Pour en finir avec le machine, 
quatre autres routines vous sont 
proposées : 

— Sous-routine DELETE ( # 998F 
à 999E) qui permet d'effacer le 
dernier caracètre rentré sur le 
Minitel. Faire CALL #998F. 

— Sous-routine de DECON¬ 
NEXION ( # 999F à # 99AE) per¬ 
mettant de déconnecter les deux 
Minitels simultanément. Faire 
CALL #999F. 

— Sous-routine D'ATTENTE 
CONNEXION (#99AF à #99BD) 
qui, une fois appelée, ne revien¬ 
dra au Basic que si votre interlo¬ 
cuteur presse sa touche CON- 
NEXION/FIN. Faire CALL #99AF. 

— Sous-routine de RECEPTION 
ET DE BOUCLAGE (#99BE à 

# 99EC) se chargeant de recevoir 
et de trier les informations 
envoyées par votre correspon¬ 
dant afin de les traiter. Ces infor¬ 
mations repartent ensuite vers le 
correspondant pour apparaître 
sur son écran. 

— Deux autres routines sont fré¬ 
quemment utilisées, mais ne sont 
pas utilisables sous Basic, car une 
information doit être fournie ou 
récupérée par le registre X pour 
leur fonctionrrement. 

— ENVOI D'UN OCTET (#9975 
à # 9981 ). L'octet à envoyer doit 
être chargé dans X. 

— RECEPTION D'UN OCTET 
(#992 à #998E). L'octet est 
récupéré dans X. 

{ 

Le programme Basic 

Il vous faudra d'abord initialiser 
rUART de la carte série en modi¬ 
fiant éventuellement la valeur de 
la variable UART (ligne 90) en y 
plaçant la valeur que vous avez 
choisie pour le décodage 
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d'adresse. Elle est ici à #380. Si spécial est réservé à la touche programme Basic a été prévu en 

tel est également votre cas, vous espace pour qu'elle affiche un 2000. Il peut être comparé au 

n'aurez rien à faire. Ceci étant point. Pour les touches de fonc- PRINT @ de l'ATMOS ou au 


Ugn» 



fait, le programme Basic se char¬ 
gera d'adapter le programme 
machine à cette valeur. 

C'est là que commencent les 
choses sérieuses. Le Minitel est 
mis en mode PRO OPPO et la por¬ 
teuse est envoyée. Votre corres¬ 
pondant perçoit alors la tonalité 
aiguë qui l'invite à se connecter. 
La routine ATTEN ne rend la main 
au Basic que lorsque cette opé¬ 
ration est effectuée. 

Les aiguillages standard du Mini¬ 
tel en mode connecté sont alors 
modifiés et la liaison s'établit 
comme le montre la figure 1. 

Il est utile de bien assimiler le 
principe de cette liaison pour 
comprendre l'intérêt de modifier 
les aiguillages. 

Lorsque votre correspondant 
aura la main et qu'il tapera une 
commande, celle-ci ne sera pas 
affichée directement ni sur son 
écran ni sur le vôtre. Elle ira jus¬ 
que chez vous, rentrera par la 
prise téléphonique de votre Mini¬ 
tel et en ressortira par la prise 
Péri-téléphonique pour finalement 
atterrir au cœur de votre ORIC. 
Là, elle sera testée pour savoir s'il 
s'agit d'une touche de fonction 
ou d'un caractère. Un traitement 


tion, seules CORRECTION, 
ENVOI et CNX/FIN seront tes¬ 
tées. Et ce n'est qu'après ce trai¬ 
tement qu'elle sera envoyée sur 
les deux écrans, d'où la nécessité 
de la ligne 270 pour votre Mini¬ 
tel qui établit la connexion prise 
vers l'écran. 

La ligne 290 permet d'éviter un 
phénomène d'écho sur votre 
écran. En effet, puisque l'infor¬ 
mation doit d'abord transiter par 
rORIC et être ensuite affichée, il 
faut éviter que celle-ci arrive peu 
avant sur votre Minitel. Vous ver¬ 
riez alors tout en double... 
Quant à la ligne 280, elle n'est 
placée là que pour vous permet¬ 
tre de mener à bien la mise au 
point de ce programme, en vous 
permettant de simuler le corres¬ 
pondant avec votre Minitel, et 
"l'appelant" avec l'ORIC. Toute 
touche frappée sur le Minitel tran¬ 
sitera par l'ORIC avant d'apparaî¬ 
tre à l'écran. Et ceci sans dépen¬ 
ser un sou en communication ! 
Après avoir effacé les deux 
écrans (ligne 300), le programme 
va inscrire, en ligne 0, le message 
"Communication établie". Pour 
avoir accès à cette ligne, ou pour 
déplacer la position courante du 
curseur dans l'écran, un sous- 


PLOT de rORIC-1. Il suffit, pour 
l'actionner, de charger les varia¬ 
bles X et Y avec les coordonnées 
du curseur, puis de faire un 
GOSUB 2000. Rappelons que le 
Minitel possède un écran de 25 
lignes 40 colonnes. 

Ensuite, pourquoi ne pas essayer 
nos messages par des change¬ 
ments de couleur de fond ? Et la 
surprise, le Minitel possède, pour 
les couleurs de papier et d'encre, 
les mêmes attributs que l'ORIC. 
Et de plus, la façon de les 
envoyer est identique. 

ESC 

puis 

CODE DE L'ATTRIBUT 

c'est-à-dire par exemples les 
codes # 1 B, #51, #20 pour 
obtenir un fond rouge. Le code 
#20 (espace), lui, est spécifique 
au Minitel pour valider l'attribut 
qui le précède (en mode GO). 
Une autre technique bien connue 
a été utilisée ici : elle consiste à 
envoyer le code ESC ( # 1 B ou 
27), puis de faire précéder le 
texte à afficher par la lettre cor¬ 
respondant à l'attribut désiré, et 
d'un espace. Exemple ; 

CALL #9900 (#1B) 'ENVOI DE 
ESCAPE 


Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct avec la rédaction. Ceci est un ser¬ 
vice sans égal ! Respectez simplement les horaires et les 
jours que nous vous indiquons : 

MERCREDI de 9 h à 12 h et de U h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent I 

Le numéro : 99 . 52 . 98 . 11 . 
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CALL #9900 "Q MINITEL" 
affichera un Minitel sur fond 
rouge à la position courante du 
curseur. 

Cette méthode reste cependant 
très limitée car elle ne permet pas 
l'envoi de plusieurs attributs. Si 
l'on désire une encre bleue sur 
fond rouge en double hauteur, il 
faudra alors taper ; 

CALL #9900 (# IB, #51, #1B, 
#44, #1B, #4D, #20). 

CALL #9900 "MINITEL" 

Notons qu'un seul espace est 



nécessaire pour toute la 
séquence d'attibuts. D'autre 
part, n'oublions pas que la notion 
de couleur sur le Minitel se 
ramène à une notion de dégradés 
de gris... 

Vous remarquerez que les attri¬ 
buts ne provoquent pas l'avance 
du curseur, contrairement à 
l'ORIC. 

On trouvera, figures 2, 3 et 4, les 
codes des différents attributs de 
couleur, mais aussi de taille, sans 
oublier ceux permettant de sou¬ 
ligner, de masquer ou d'inverser. 


Fi 3ure 2 s 

ATTRIBUTS DES COULEURS D’ENCRE 


COULEUR 

! no i 

re rouee 

verte Jaune 

bleue magenta cvan 

b 1 anche 

LETTRE 

: 3 

A 

B C 

D 

E 

F 

G 


Hexa. 

: 412) 

41 

42 43 

44 

45 

46 

47 


Dec. 

: B4 

85 

68 67 

68 

69 

70 

71 





Figure 3 

n 







ATTRIBUTS DES COULEURS DE 

FOND 



COULEUR 

noire rouee 

verte jaune 

bleue magenta cvan 

b 1 anche 

Lettre 

P 

Q 

R S 

T 

U 

V 

N 


Hexa. 

50 

51 

52 53 

54 

55 

56 

57 


Dec. 

80 

81 

82 83 

84 

â5 

86 

87 





Figure 4 

■ 








AUTRES ATTRIBUTS 





TAILLE 


grandeur double 

doub1e 

doub1e 





norma1e 

hauteu r 

largeur 

grandeu r 



Lettre 


L 

M 

0 


P 



Hexa. 


4C 

4D 

4E 


4F 



Dec. 


76 

77 

78 


79 







début 

f i n 

fond 



clien. 

fixe masquage demasQ. lignage 

1 ignage 

norm. 

i nv. 

Lett re 

H 

I 

X t 

Z 


Y 

\ 

3 

Hexa. 

48 

49 

58 5F 

5A 


59 

5C 

5D 

Dec. 

72 

73 

88 95 

90 


89 

92 

93 


NOTE ; "Début de lignage" per¬ 
met de souligner du texte. 
"Masquage" permet de 
"cacher" une partie d'écran. 

Tout ceci étant dit, nous en som¬ 


mes à la phase ENVOI DE LA 
REPONSE. C'est à la routine 
RECEPTION ET BOUCLAGE de 
rentrer en action, et elle ne 
reviendra au Basic que lorsque le 
correspondant tapera ENVOI. 


Vous remarquerez, ici et là dans 
le programme, la ligne : 

D = PEEK(UART) 

qui permet de vider le registre de 
réception avant toute autre opé- 
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ration sur l'UART. 

Les lignes 840 à 900 vous per¬ 
mettent maintenant de répondre 
avec rORIC et testent certaines 
touches du clavier de la même 
façon que la routine de RECEP¬ 
TION ET DE BOUCLAGE. 

Voilà, tout est dit, ou presque... 
Ajoutons que les lignes 1000 à 
1050 utilisent la séquence PRO¬ 
TOCOLE : 

caractère, REP, Nbre de répéti¬ 
tions avec REP=#12. Il faut 
ajouter #40<64) au nombre de 
répétitions. Exemple : 

CALL #9900 (#41, #12, #45) 

affichera 6 lettres A. Le nombre 
de répétitions est à module 64. 
Terminons en précisant que le 
code # 11 fait apparaître le cur¬ 
seur, que # 14 le fait disparaître 
et que #0C efface l'écran. 


MISE AU POINT 

Le programme machine se char¬ 
gera en mémoire à la première 
mise en route du programme. Si 
vous possédez un ORIC-1, les 
modifications se feront d'elles- 
mêmes. Si vous relancez le pro¬ 
gramme à chaud, les initialisa¬ 
tions et le chargement des datas 
ne seront plus exécutés (ligne 
100 ). 

Il est conseillé de sauver ce pro¬ 
gramme à la fin de sa frappe, puis 
de faire RUN 5000 qui affichera 
les checksums suivants : 


Li 

gne 

3070 

CHKS= 32676 

Li 

gne- 

3080 

CHKS= 34231 

Li 

gne 

3090 

CHKS= 3119Î 

Li 

gne 

3100 

CHKS= 24139 

Li 

gne 

3110 

CHKS= 247.38 

Li 

gne 

3120 

CHKS= 29836 

Li 

gne 

3130 

CHKS= 27355 


Ligne 3140 CHKS= 25252 
Ligne 3150 CHKS= 31595 
Ligne 31&0 CHKS= 3223S 

Ne lancez le programme que 
quand les checksums affichés sur 
votre écran seront identiques à 
ceux ci-dessus. 

Avec tous ces renseignements 
vous pourrez maintenant amélio¬ 
rer ce programme à volonté, en 
modifiant, par exemple, sa mise 
en page ou en lui ajoutant d'au¬ 
tres possibilités. Et même, pour¬ 
quoi pas ne garder que le 
machine et refaire tout à fait 
autre chose en Basic ? 

Mais, sachez qu'il vous faudra 
compléter le langage machine si 
vous désirez proposer à votre 
interlocuteur le traitement d'au¬ 
tres touches de fonction. 

En attendant, bon amusement 
sur Minitel. 


0 ’ 

1 ’ 

2 • 

3 ’ 

5 ’ 

6 ’ 

7 ’ 

8 ’ 

9 ’ 

10 ’ 
20 ’ 


4cif« 414 ] 4t >ÿ« tH 4* 4( 4* 4c 4< 


4 ( 4 < 

♦ ORICTEL VI. 0 >*■ 

«< 

♦ Frédéric TfiRftUD 

m * 

♦ 06/12/85 * 

•t< If: 


INITIOLISfiTIONS ORIC 


30 ’ 

40 CLS 

50 DEL =#99BF 
60 FIN =#999F 
70 RECEP=#93BE 
80 RTTEN=#99fiF 

90 URRT *#380 'Adresse de base URRT 
100 IF PEEK<#93EC)*#99 THEN 250 
110 COSUB 3000 

120 D0KE#997E,URRT ’ RDfiPTRTION 
130 DÜKE#398B,URRT ' DU 

140 D0KE#9977,URRT+1 ’ LRNGRGE 

150 DOKE#9984, URRT-»-! ’ MACHINE 

160 ’ 

170 • INITIALISATION URRT 

180 ' 

190 POKE URRT-t-l,#00 
200 POKE URRT-4-2. #EB 
210 POKE URRT-*-3. #38 
220 ’ 

230 ’ INITIALISATIONS MINITEL 

240 • 

250 CALL #9900<#1B.#33.#6F,#1B.#39,#ES)’ENV0I DE LA PORTEUSE 

260 CALL ATTEN 'ATTENTE CONNEXION 

270 CALL #9900<#1B, #3B, #61,#58.#53)'PRISE->ECRRN MINITEL 

280 CALL #9900<#1B.#3B, #61.#5B, #51)’CLAVIER MINITEL->PRISE 

290 CALL #9900(#1B. #3B.#60.#58.#52)'ECRAN MINITEL DECONNECTE DU MODEM 

300 CALL #9900(#0C> 

310 X*13Y>=0 sGOSUB 2000 

320 CALL #S900"Communication etabiie":WAIT 100 
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330 X>-l:Y«0 sGOSUB 2000 
340 CRLL #9900“DRICTEL VI. 0 1985 

350 X-liy-2 iCOSUB 2000 
3B0 C«LL «♦9900 (#1 B) 

370 CRLL #9900"U CNX/FIN :pour revenir au téléphoné *' 

380 X>’liY<i3 iCOSUB 2000 
390 CRLL ««9900(#1B> 

400 CRLL «♦9900"R CORRECTION:efface le dernier caractère " 

410 X*>1>Y«4 :G0SUB 2000 
420 CRLL #9900<H1B) 

430 CRLL ♦♦9900‘'Q ENVOI :pour avoir la réponse " 

500 ’ 

510 ’ REQUISITION DU MESSRGE 
520 ’ 

530 CRLL #9900<#14) 

540 X=5:Y>=S :G05UB 2000 
550 CRLL #9900(#1B) 

560 CRLL #9900“T Tapez votre messaee 
570 CRLL #9900(#14) 

580 X=l!Y=B tGOSUB 2000 

590 G05UB 1000 

600 X-l:Yc=8 :GOSUB 2000 

610 CRLL #9900(#11> 

620 D=PEEK<URRT) 

630 CRLL RECEP 
700 ’ 

710 ’ ENVOI DE LR REPONSE 
720 ' 

730 CRLL #9900(#14) 

740 X-=5:Y-15 iGOSUB 2000. 

750 CRLL #9900(#1B) 

760 CRLL #9900"V RePonae i" 

770 X«l:Y-17 iGOSUB 2000 
780 GOSUB 1000 
790 X*»1:Y-17 :G0SUB 2000 
800 CRLL #9900(#11) 

810 ’ 

820 'Editeur: 

830 ’ 

840 D“PEEK(URRT) 

850 GET R*:R-RSC(fi#) 

860 IF R-03 THEN CRLL FIN :END 
870 IF R=05 THEN D=PEEK(URRT):GOTO 570 
880 IF R=32 THEN fl=#2E 
890 IF R»127 THEN CRLL DEL :GOTO 850 
900 CRLL #9900(R): GOTO 850 
1000 ’ 

1010 ’ ENVOI 5 LIGNES POINTILLEES 
1020 ’ 

1030 CRLL #9900<#2E.#12t#7F,#2Et#12. #7F) 

1040 CRLL #9900<#2E. #12.#7F,#2E,#12. #47) 

1050 RETURN 
2000 ’ 

2010 ’ POSITIONNEMENT DU CURSEUR 
2020 ’ 

2030 Y=Y+64»X-X+64 
2040 CRLL #9900<#1F. Y. X) 

2050 RETURN 
3000 ' 

3010 ’ CHRRGEMENT DES DRTRS 

3020 ’ 

3030 FOR I=#9900 TD#99EC:RERD R$:R»VflL<"#"fR*):POKE I.R:NEXT 
3040 IF PEEK<#E4BB)-#R2 THEN RETURN 

3050 DOKE#g90B. #DEBD:D0KE#9915.#CFD3:D0KE#994B. #CFD9:D0KE#994E. #D0FC:RETURN 
3060 ’ 

3070 DRTR 20. ES. 00. C9. 28. D0. 10. 20. E2. 00. 20. C8. DS. 20. 75. 99. C9. 2C. F0. F3. 4C. 5F 
3080 DRTR D0. C9. 22. D0. 2F. fl4. E9. SC. 2E. 99. R4. ER. 8C. 2F. 99. EE. 2E. 99. D0. 03. EE. 2F 
3090 DRTR 99.RD. 63. 0B. F0.0B.C9.22. F0.07.RR.20.75. 99. 4C. 25. 99.RC.2E.99.84.E9 
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3100 DRTO fiC. 2Ft 99t B4, Efi. ACt E2t 00t 20, 65, DO, 20, BB, DI,85,00.8A,01,00,00,81,00 
3110 DRTR F0,19, 85, 02, CB, B1,00, 85,03, C8, 81.00, 85,04,PO.00,81.03,PP,20,75, 99 
3120 DPTR CB,C4, 02,D0, F5, 60, EP,48,PD, 81,03,29,10.F0, F9,8E, 80,03,68,60,48. PD 
3130 DPTP 81,03, 29, 08, F0, F9, PE, 80, 03, 6E, 60,P2,08,20,75,99.P2,2E,20.75,99,P2 

3140 DPTP 0B,20, 75, 99, 60, P2, 18,20. 75, 99, P2. 39,20,75,99.P2,67,20,75,99,60,20 

3150 DPTP 82,99, E0, 13, D0, F9, 20, 82, 99, E0, 53, D0, F9, 60, 20. 82. 99,E0, 13,D0. IC. 20 

3160 DPTP 82, 99, E0, 47, D0, 06, 20, 8F, 99, 4C, BE. 99, E0, 49, D0, 06, 20, 9F, 99, 4C, BE, 99 

3170 DPTP E0. 41, D0. DE. 60, E0,20. D0,02.P2. 2E.20,75,99.4C.BE.99.EP.EP.EP.EP.EP 
5000 ' 

5010 ’ VERIFICPTION DES DPTPS 
5020 ’ 

5030 CLS:LIGNE“3070:C-1:CHKS-=0 
5040 FOR I=tt9900 TO #9908 

5050 REPD D* « D-VRL < " # " •►D* ) s CHKS=CHKS-»-D^C s C-C+1 

5060 IF C-23 THEN PRINT"Ll9ne ";LIDNE5" CHKS-";CHKS»LIGNE»LIGNE+10:CHKS-0iC-l 
5070 NEXTtENDB 


I9900- 

99EC 








9900: 

20 

E8 

00 

JSR 

#00E8 

“ 

Acquisition du 1*' caractère après 

CALL 

9903 s 

C9 

28 


CMP 

#»2S 


#9900, est-ce ? 


9905: 

D0 

10 


BNE 

*9917 

- 


9907: 

20 

E2 

00 

JSR 

«00E2 




990P: 

20 

C8 

DG 

JSR 

*D&C& 




990D: 

20 

75 

99 

JSR 

*9975 



Envoi de codes. 

99101 

C9 

2C 


CMP 

#»2C 


Test 


9912: 

F0 

F3 


BEQ 

*9907 




9914> 

4C 

5F 

D0 

JMP 

»D0SF 


Test 


99171 

cg 

22 


CMP 

#*22 

- 

Est-ce ? 


9919: 

D0 

2F 


BNE 

*994P 

- 


9918: 

P4 

E9 


LDY 

*E9 




991D: 

8C 

2E 

99 

STY 

*992E 


Déplace 


9920: 

P4 

EP 


LDY 

*EP 


TXTPTR 


9922: 

BC 

2F 

99 

STY 

♦992F 




9925: 

EE 

2E 

99 

INC 

*992E 




9928! 

D0 

03 


BNE 

*992D 




992P: 

EE 

2F 

99 

INC 

*992F 




992D! 

PD 

63 

08 

LDP 

*0863 



Envoi de caractères. 

9930: 

F0 

08 


BEQ 

*993D 


Test fin de ligne (OO). 


9932: 

C9 

22 


CMP 

#*22 


Test”. 


9934: 

F0 

07 


BEQ 

*993D 




9936! 

PP 



TPX 





9937: 

20 

75 

99 

JSR 

*9975 


Envoi. 


993P! 

4C 

25 

99 

JMP 

*9925 




993D: 

PC 

2E 

99 

LDY 

*992F 




9940: 

84 

E9 


STY 

*E9 


Remet en place TXTPTR. 


9942: 

PC 

2F 

99 

LDY 

*992F 



9945: 

84 

EP 


STY 

*EP 




9947: 

4C 

E2 

00 

JMP 

*00E2 




994P! 

20 

65 

D0 

JSR 

*D0B5 


Est-ce ? 


994D: 

20 

88 

DI 

JSR 

♦Dise 

1 

Recherche descripteur. 


9950: 

85 

00 


STP 

*00 

J 

Adresse descripteur en 00 et 01. 


9952: 

84 

01 


STY 

*01 




9954! 

P0 

00 


LDY 

#*00 




9956: 

81 

00 


LDP 

(*00), 

Y 

Longueur de la chaîne en 02 . 


9958! 

F0 

19 


BEQ 

*9973 


de caractères. 

995P: 

85 

02 


STP 

*02 


Si chaîne vide, retour Basic. 

9958! 

CG 



INY 





995D! 

81 

00 


LDP 

<;*00), 

Y 



995F: 

85 

03 


STP 

*03 




9961 ! 

C8 



INY 



Adresse de la chaîne en 03 et 04. 


99621 

81 

00 


LDP 

(«OO). 

Y 



9964! 

85 

04 


STP 

*04 




99661 

P0 

00 


LDY 

#*00 
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9968: 

B1 

03 


LDO 

(*03).V 

r 

99En: 

00 



TOX 


Envoi de la chaîne 

996B: 

20 

75 

99 

JSR 

*9975 


9966: 

C8 



INY 



996F: 

84 

02 


CPY 

*02 


9971 : 

D0 

F5 


BN6 

*9368 


9973: 

60 



RTS 


Retour Basic. 

9974: 

60 



NOP 



9975: 

48 



PHO 



9976: 

00 

81 

03 

LDO 

*0381 

Sous-routine 

9979: 

29 

10 


OIMD 

#*10 

Test si registre d'envoi plein. d'envoi d'un octet. 

997B: 

F0 

F9 


BED 

*9976 

Oui. 

997D: 

86 

80 

03 

STX 

*0380 

Non. envoi. 

9980: 

68 



PLO 



9981 : 

60 



RTS 



9982: 

48 



PHO 









Sous-routine 

9983: 

00 

81 

03 

LDO 

*0381 

de réception d'un octet. 

9986: 

29 

08 


OND 

#*08 

Test si registre de réception plein. 

9988: 

F0 

F9 


BEQ 

*9983 

Non. 

99Sfi: 

06 

80 

03 

LDX 

*0380 

Oui, réception. 

998D:* 

68 



PLO 



9986: 

60 



RTS 



998F: 

02 

08 


LDX 

#*08 


9991 : 

20 

75 

99 

JSR 

*9975 


9994: 

02 

26 


LDX 

#*2E 


9996: 

20 

75 

99 

JSR 

♦9975 

Sous-routine "Oelete''. 

9999: 

02 

08 


LDX 

#«08 


999B: 

20 

75 

99 

JSR 

•9975 


9996: 

60 



RTS 



999F: 

02 

IB 


LDX 

#«1B 


9901 : 

20 

75 

99 

JSR 

*9975 

Sous-routine 

9904: 

02 

39 


LDX 

#*39 

de déconnexion. 

99RB: 

20 

75 

99 

JSR 

*9975 

Envoi de la séquence IB,39,67. 

9909: 

02 

67 


LDX 

#♦67 


990B: 

20 

75 

99 

JSR 

*9975 


9906: 

60 



RTS 



990F: 

20 

82 

99 

JSR 

♦9982 


99B2: 

60 

13 


CPX 

#*13 

Sous-routine 

99B4: 

00 

F9 


BNE 

*990F 

d'attente connexion. 

99B6: 

20 

82 

99 

JSR 

♦9982 

Attente de la séquence IB.53. 

99B9: 

60 

53 


CPX 

#*53 


99BB: 

00 

F9 


BNE 

«99B6 


99BD: 

60 



RTS 



99B6: 

20 

82 

99 

JSR 

*9982 ■ 


99Cl: 

60 

13 


CPX 

#*13 


99C3: 

00 

IC 


BNE 

*9961 


99C5: 

20 

82 

99 

JSR 

*9982 


99CB: 

60 

47 


CPX 

#*47 


99C0: 

00 

06 


BNE 

*9902 

Routine de réception 

99CC: 

20 

8F 

99 

JSR 

*998F 

et de bouclage. 

99CF: 

4C 

BE 

99 

JMP 

*99BE 

Traitement des touches de fonction. 

99D2: 

60 

49 


CPX 

#*49 


99D4: 

00 

06 


BNE 

♦99DC 


99D6: 

20 

9F 

99 

JSR 

*999F 


99D9: 

4C 

B6 

99 

JMP 

*99BE 


99DC: 

60 

41 


CPX 

#*41 


9906: 

00 

06 


BNE 

*99BE 


9960: 

60 



RTS 



9961: 

60 

20 


CPX 

#«20 

Si espece, envoyer un point. 

9963: 

00 

02 


BNE 

*9967 


9965: 

02 

26 


LDX 

#*2E 


9967: 

20 

75 

99 

JSR 

*9975 

Envoi caractère. 

9960: 

4C 

B6 

99 

JMP 

•99BE 
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LES HEDS DA^ LE n^T 


F reddy leappy, le programme qui vous fait bondir, vous 
qui essayez de comprendre les ruses du langage 
machine, continue ce mois-ci. Pour vous consoler, pre¬ 
nez l'ascenseur, car c'est cette routine qui va être détaillée 
dans un instant. 


Au passage, n'oubliez pas de 
jeter un petit coup d'oeil sur l'or¬ 
ganigramme de cette routine, ça 
demande du travail pour le des¬ 
siner et, en plus, c'est fort utile 
pour la compréhension de ce qui 
va suivre... 

Ça commence d'ailleurs fort dans 
les lignes 444 à 448, avec le 
ralentissement de l'ascenseur. En 
effet, si on déplace l'ascenseur à 
chaque tour de jeu, il se déplace 
à la vitesse grand V. Aussi, la 
mémoire PAIR sert à "filtrer" 
l'exécution de cette -routine. A 
chaque-fois qu'elle est appelée, 
PAIR est incrémentée. Si son 
contenu est égal à trois, on exé¬ 
cute effectivement la routine, et 
PAIR est remise à zéro, autre¬ 
ment, on retourne au programme 
principal. 

Les lignes 448 à 469 ne présent 
tent pas un grand intérêt ; elles 
effacent et calculent les nouvel¬ 
les coordonnées de l'ascenseur, 
à l'aide d'une méthode que vous 
commencez à bien connaître. En 
ligne 470, on incrémente la 
mémoire ETAGE, qui sert pour le 
changement de sens de l'ascen¬ 
seur. 

Par contre, c'est dans les lignes 
471 à 500 que ça se corse, 
comme disait Napoléon ! En 
effet, on teste d'abord si l'on est 
en montée. Si ce n'est pas le cas, 
on vérifie que Freddy n'est pas 
sur une des deux cases que va 
occuper l'ascenseur, car un 
ascenseur sur le dos, c'est géné¬ 
ralement mortel (lignes 477- 
479). Par contre, si on monte, on 
vérifie quand même si Freddy 
n'est pas sur les cases que va 
occuper l'ascenseur, mais cette 
fois-ci, c'est pour le prendre en 
charge (dans ce cas, (ilRL passe 
à 2 et tous les déplacements de 


Freddy sont gérés par cette rou¬ 
tine, un peu plus loin). 

C'est d'ailleurs l'intérêt des lignes 
502 à 523. Si Freddy est en 
charge, la routine efface son 


ancienne position, calcule la nou¬ 
velle et l'y affiche. 

Les lignes 524 à 534 servent, 
quanFà elles, à tester si l'on est 
arrivé au 10» étage (le maximum 
que puisse atteindre l'ascenseur), 
et le cas échéant, inverse le 
contenu de H/L et D/L qui servent 
pour faire descendre ou monter 
l'ascenseur (cf lignes 456-469). 
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Une fois cette précaution prise, 
on peut à nouveau afficher l'as¬ 
censeur (lignes 535 à 540) et 
retourner au programme principal 
si Freddy n'est pas en charge. 
Dans le cas contraire, on teste si 
la touche Shift n'est pas enfon¬ 
cée. Si elle l'est, on "éjecte" 
Freddy de l'ascenseur en lui don¬ 


nant une direction diagonale gau¬ 
che pour son déplacement. CTRL 
est mis à 1, car bien que forcé, 
Freddy effectue un saut. 

En tous cas, on retourne au pro¬ 
gramme principal (ligne 568) et 
moi, je m'en retourne vers mon 
lit, car il est déjà tard, mais pas 
trop tard... 



32U 


437 


;24i 


438 


5246 


439 

iiiiiiiiiiiiiiiiiiiiiiimn 

5246 


440 

*** SS/PW LIFT 

5246 


441 

♦♦♦ , §** 

5246 


442 


5246 


443 

iiimiiiinmimmumf 

5246 

EE 0* 4F 

444 LIFT INC F*IR 

5249 

*0 0* 4F 

445 

LD* P*III 

524C 

C9 03 

44À 

CW 13 

524€ 

FO 03 

447 

lEQ >1 

5250 

4C 03 50 

448 

JW RET0U8 

5253 

*9 00 

449 >1 LO* «0 

5255 

80 0* 4F 

450 

ST* P*IR 

5258 

*0 00 

451 

LOV HO 

525A 

4? 20 

452 

LO* 132 

525C 

91 04 

453 

ST* (U4),T 

525£ 

CB 

454 

INY 

525f 

91 04 

455 

ST* l«4),ï 

5261 

18 

456 

CLC 

5262 

*5 04 

457 

LD* H4 

5264 

60 07 4F 

458 

MIC O/L 

5267 

85 04 

459 

ST* 104 

5269 

*5 05 

460 

LD* H5 

526t 

69 00 

461 

MIC no 

5260 

85 05 

462 

ST* <05 

526f 

38 

463 

SEC 

5270 

*5 04 

464 

LO* <04 

5272 

EO 06 4F 

465 

SIC H/L 

5275 

85 04 

466 

ST* <04 

5277 

*5 05 

467 

LD* <05 

5279 

E9 00 

468 

SK <00 

5271 

85 05 

469 

ST* <05 

5270 

EE 08 4F 

470 

INC ET*6E 

5280 

*0 06 4F 

471 

LO* H/L 

5283 

00 18 

472 

NC >1 

5285 

*0 œ 

473 

LDY HO 

5287 

11 04 

474 

LO* «041, V 

5289 

Ci 64 

475 

CW ’d’ 

52BB 

00 06 

476 

NC >2 

5280 

*9 01 

477 >3 LD* ni 

528F 

80 El IF 

478 

ST* <IFE1 

5292 

60 

479 

RTS 

5293 

C8 

480 >2 INV 

5294 

11 04 

481 

LD* «041, Y 

5296 

C9 64 

482 

CW ’d’ 

5298 

FO F3 

483 

KO <3 

529* 

18 

484 

ac 

5291 

90 17 

485 

ICC >4 

5290 

*0 00 

486 >1 LOT HO 

529F 

Il 04 

487 

LD* «041, Y 

52*1 

C9 64 

488 

CW ’d’ 

52*3 

00 08 

489 

NC >2 

52*5 

*9 02 

490 >3 LO* 12 

52*7 

80 00 4F 

491 

ST* nu. 

52** 

18 

492 

ac 

52*1 

90 07 

493 

KC >4 

52*0 

C8 

494 >2 INY 

52*E 

Il 04 

495 

LO* «041, Y 

5210 

C9 64 

496 

CW ’d’ 

5212 

FO Fl 

497 

ISO a 

5214 


498 i 


5214 


499 ;Cette partie était destinee a 


if 01 du hft/etaçe 

500 ;2) test si dunul sur/sous l'as*' cen 


seur »> 

nturque/ti» 


5214 



501 ; 


5214 

*0 

00 4F 

502 >4 

LO* CTRL 

5217 

C9 

02 

503 

CW n2 

5219 

00 

26 

504 

NC >9 

5211 

*9 

20 

505 

LO* 132 

5210 

*0 

00 

506 

LOY tOO 

521F 

91 

02 

507 

ST*«021,Y 

52C1 

18 


508 

ac 

52C2 

*5 

02 

509 

LO* <02 

52C4 

60 

07 4F 

510 

MIC D/L 

52C7 

85 

02 

511 

ST* <02 

52C9 

*5 

03 

512 

LOA <03 

52C1 

69 

00 

513 

MIC HO 

52C0 

85 

03 

514 

ST* <03 

52CF 

38 


515 

SEC 

5210 

*5 

02 

516 

LD* <02 

5202 

ED 

06 4F 

517 

SIC H/L 

5205 

85 

02 

518 

ST* U2 
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1 

1 “ ■ ' ■ 

5207 

AS 03 

S19 

LDA (03 

5301 

AO œ 

536 

LOV (00 

5323 

85 02 

553 

STA (02 

• 

52D9 

E9 00 

S20 

SIC iOO 

5303 

91 OA 

537 

STA ((OA),y 

5325 

85 œ 

SSA 

STA (X 


S20» 

es 03 

S21 

STA <03 

5305 

C8 

538 

INY 

5327 

AS 05 

555 

LDA <05 

A 

52DD 

A9 64 

S22 

LOA ’tf’ 

5306 

A9 63 

539 

LDA ’c’ 

5329 

E9 X 

556 

SK IX 

# 

52tlf 

91 02 

S23 

STA 1(02),V 

5308 

91 OA 

5A0 

STA ((OA),y 

5321 

85 01 

557 

STA (01 


S2E1 

AD œ AT 

S2A >9 

LDA ETAGE 

530A 

AO 00 AF 

5A1 

LOA CTHL 

532D 

85 03 

SX 

STA (X 

A 

S2£4 

C9 OA 

S2S 

Olf «M 

530D 

C9 02 

5A2 

CHP §02 

532F 

A9 X 

559 

LDA M 


52E6 

ro 17 

S26 

ME END 

530F 

00 36 

5A3 

Ne >2 

5331 

X 02 AF 

560 

STA C/DI 


S2E8 

A9 00 

527 

LOA (00 

5311 

AD 09 02 

SAA 

LDA (209 

533A 

œ X Af 

561 

STA C/l 

• 

S2» 

BD Oe Af 

S2S 

STA ETAGE 

531A 

C9 A7 

5A5 

CnP HAT 

5337 

X X AF 

562 

STA an. 


S2ED 

AO 06 AF 

529 

LDA H/L 

5316 

DO 2F 

5A6 

BIC >2 

533A 

X X AF 

563 

STA TOUR 


S2ro 

80 09 AF 

530 

STA SMP 

5318 

A9 20 

5A7 

LOA 132 

533D 

A9 01 

56A 

LDA 11 

• 

52F3 

AO 07 4f 

531 

LDA D/L 

531A 

A2 00 

5A0 

LDI (00 

533F 

X 01 AF 

565 

STA C/GI 


52F6 

80 06 AF 

532 

STA H/L 

531C 

81 02 

5A9 

STA ((02,1) 

S3A2 

A9 28 

566 

LOA lAO 

A 

52F9 

AO 09 4F 

533 

LOA SMP 

531E 

38 

550 

SEC 

53AA 

X OA AF 

567 

STA C/H 

w 

52FC 

80 07 AF 

53A 

STA D/L 

531F 

AS OA 

551 

LDA (OA 

53A7 

AC X 50 

568 >2 

JHP RETOUR 


52Ff 

A9 62 

535 END 

LOA 'b' 

5321 

E9 29 

552 

SIC (Al 

53AA 


569 ; 



Une ligne téléphonique est à votre disposition, vous met¬ 
tant en contact direct ovec la rédaction. Ceci est un ser¬ 
vice sans égal I Respectez simplement les horaires et les 
jours que nous vous Indiquons : 

MERCREDI de 9 h à 12 h et de 14 h à 17 h. 
VENDREDI de 9 h à 12 h seulement. 

Tout appel en dehors de ces créneaux sera refoulé : ne 
dépensez pas inutilement votre argent I 


Le numéro ; 99«S2*98« lia 



ABONNEZ 
VOUS..i, 

- — — VAIASLE fOUR 1 ^ ^ 

Prénom | 

Nor^ ...l 

Adresse . . .^ 

^Code Signo'u^® . 85 f \ 

K'-'''.(»"• 

a ^oU-' V*^DoUta»ne • • • • * ^ 140 fi 

' sm 




A SUIVRE 





















R ecopier un écran texte sur imprimante, quel que soit le 
type de matériel utilisé, est une chose simple : voici la 
méthode en quelques octets. 


Pour tous ceux qui ne possèaent pas 
d'assembleur, nous avons cru bon 
devoir fournir un listing Basic, utili¬ 
sable par chacun. Pour les autres, et 


surtout pour permettre à tous de 
comprendre le principe de la rou¬ 
tine, nous proposons un listing 
désassemblé et commenté, établi à 


l'aide de l'assembleur MICROLO- 
GIC (Editions SORACOM). 

La routine est branchée sur le "I" en 
#B400. Les utilisateurs de disques 
devront rétablir en #2F5 le vecteur 
correspondant (#400 pour Jasmin, 
#4C4 pour DOS VI. 1 MICRO- 
DISC), pour accéder de nouveaux 
aux disquettes. 


10 REM CoDie d'écran TEXTE 
20 REM 31 Octobre 1985 

30 REM 

40 60SUB 160: DOKE )t2F5.«B400 

50 CLS:PRINT:PRINT:PRINT:PRINT:PRINT 

60 PRINT' Ce prograM'e ne transféré sur'rPRINT 

70 PRINT*imprimante qu’un écran en mode TEXT':PRINT:PRINT 

80 PRINT’ Vous pouvez l’appeler par :’:PRINT 

90 PRINT’ - CALL #E400’ 

100 PRINT’ ' - ou la commande basic !’:PRINT:PRINT:PRINT 
110 PRINT’ Voulez-vous imprimer la première’:PRINT 
120 PRINT’lione (celle ou s’écrit CAPS) ? 0/N ’;:GET T$ 

130 IF T* =’N’ THEN POKE #B413,#A8 
140 PRINT:PRINT:PRINT 

150 PRINT’ Votre routine mactiine est prête’:END 
160 FOR N = «B400 TO #B44E 
170 READ D :P0KE N,D 
180 NEXT:RETURN 

190 DATA ttAD, 401,ICO,#C9.ICC, IFO,lOB,#A9,17B, I8D,I2C,IB4,ISD, 136,#B4,18D 
200 DATA i3B.IB4,IA9,180,185,170,IA9.IBB,185.171,lAO,100,IBl,170,#C9,#80 
210 DATA 190.103,138,IE9.180,IC9,120,IBO,#02,IA9,#20.#20,ICI,#F5,IC8,ICO 
220 DATA #28.IDO,#E9.IA9. lOD,#20,ICI,#F5,#A9,lOA,#20,ICI.IF5,#18,#A5.#70 
230 DATA 169,123,#85,170,#90,#02,#E6,«71,#A5,#70,#C9,lEO,IDO,ICC,#60 
240 REM » Fin de liste pour THEORIC ♦ 
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1 



ni 

Cooie d'écran TEITE 20 B429 ; 

A9 20 



LDA 1420 

Inoriee un espace 

2 





29 B42B « 

20 Cl 

F5 

IftPl 

JSR 4F5C1 


3 





30 B42E : 

C8 



INY 


4 



OPT 

L.S.C.T 

31 B42F 1 

CO 28 



CPY «428 

Fin de liqne ? 

5 

— Ï400 


0«6 

(B4O0 

32 B431 1 

DO E9 



BNE NOLIN 


6 





33 B433 : 

A9 00 



LDA 1400 

Retour chariot 

7 

— 0070 

ADLIN 

EQU 

$70 

34 B435 I 

20 Cl 

F5 

mP2 

JSR 4F5C1 


8 





35 B438 : 

A9 OA 



LDA I40A 


9 MOO 

s AD 01 CO 


LOA 

SCOOl 

Initialisations ; 

20 Cl 

F5 

I11P3 

JSR 4F5C1 


10 M03 

! C9 CC 


CUP 

ticc 

37 B43D 1 

18 



ac 


11 EiOü 

! FO OB 


BEO 

DEBUT 

38 B43E 1 

A5 70 



LDA ADLIN 

Calcul adresse ligne 

J2 E«7 

! A9 7B 


LOA 

I17B 

39 B440 1 

69 28 



AOC 1428 

Miviote 

13 B409 

1 80 2C B4 


STA 

IMPl+1 

40 B442 t 

85 70 



STA ADLIN 


14 E40C 

! 80 36 B4 


STA 

mP2*l 

41 B444 t 

90 02 



BCC TESFIN 


15 E*0f 

t 80 3B E4 


STA 

IMP3*1 

42 B446 : 

E6 71 



INC AOLINrl 


16 E412 

I A9 80 

DOOT 

LOA 

1480 

43 B448 t 

A5 70 


TESFIN 

LDA ADLIN 


17 E4U 

I 85 70 


STA 

ADLIN 

44 B44A 1 

C9 EO 



CMP «4E0 

Fin d'écran $ 

18 E416 

1 A9 SB 


LOA 

«SBB 

45 B44C : 

DO CC 



BNE NOCOL 


19 B418 

1 85 71 


STA 

A0LIN>l 

46 B44E 1 

60 



RTS 


20 E4IA 

! AO 00 

NOCOL 

LDY 

•$00 

47 






21 E41C 

) B1 70 

NOLIN 

LOA 

(ADLINI.Y 

48 






22 B41E 

! C9 80 


CMP 

«$80 

Video inverse ? 



0 ERREURISl 


23 B420 

I 90 03 


BCC 

TEST 

ADLIN 0070 


DEBUT 

B-412 

IMPI B42B 

IH^ B435 

24 E422 

I 38 


SCC 


Retour video norMle inP 3 fk3A 


NOCOL 

B41A 

NOLIN B4IC 

TESFIN B44e 

25 E4:3 

1 E9 80 


SBC 

«480 

TEST B4:S 






26 B425 

1 C9 20 

TEST 

CMP 

«420 

Si code de contrôle 






27 B427 

1 BO 02 


ICS 

inpi 









ARCADIE : INFERNO et VICKY le Jardinier 

VoLcÀ. deux, nouveaux jeux d'ancade de quatixi poux ûxàjl eX Atmo6 ; GxapkxAmeA, ioni eX' uxXeae 
ieniaXXonneti. 

Poux compléXeA. le tableau - c'eit te cai de le dlxe - Tnfexno voui pxopoie un véxxXable 
édiXeux pexmeXtanX de mocUiiex le jeu à votxe convenance. 


TORTUE LOGIC 

Baié iux lei Xdéei eaentlellei du LOGO, TORTUE LOGIC e^t un nouveau langage poux votxe mlcxo- 
oxdinaXeux pexmeXtant la cxiaXlon gxaphlque et muilcale évoluée et l’appxentinage de la 
pxogxammatXon poux lei enianXi. 

Comme en LOGO, TORTUE LOGIC met à votxe dtipoeiXion 64 "pxxmiXlvei" voui pexmettanX de cxéex 
voi pxopxe* "pxocéduxex", de let exécutex, lea édxXex, le* Aauvegaxdex. Uuilquei et dealm 
cxééa peuvent éXxe uXUjiiéi dam d'autxei pxogxammei. 


ATLANTIS 

Un gxand . jeu d'avenXuxe gxapklque eX ioui-maxln. Voué auxez beaoln de toute votxe 
intelligence, d’ingénloiiXé, d'aitucei, et d'un bon icaphandxe poux paxtix à la découvexte et 
xéioudxe l'énigme de l'Atlantide. 

mile dangexi voué guetXexont dané cette xeckexche d'AXlantié, la cité légendaixe engloutie ! 
Si voué xiuééiééez, voué txouvexez, peut-lXxe, xicheéée, gloixe et libexté. 

MOTS CROISES 

Ce logiciel poux le moiné oxiginal voué pxopoée de xééoudxe 120 gxilleé de moté cxoiééé ! 

Ve plué il compoxte un pxogxamme d'aééiétance à la cxéaXion voué pexmeXtant de cxéex, voué- 
méme deé gxilleé et de leé éauvegaxdex. 

Le jeu compoxte deux niveaux de diHiculXié : avec ou éané leé caéeé noixeé. 

FORMULE 1 

EcxiX 100 i en langage machine, voici un nouveau jeu d'action : un éupexbe logiciel de coux- 
ée automobile en 3 dimenéioné. Pagéage défilant, viéion 3 dimenéioné, animation éonoxe, 31 
niveaux de jeu, dépendant du cixcuiX, de la viXeéée moyenne impoéée, nombxe d'advexéoixeé. 

Rien ne manque à ce logiciel exceptionnel qui vient xenouvelex la gamme de jeu poux Ûxic. 


Pour recevoir le nouveau catalogue COBRA SOFT, écrivez en 
joignant 2 timbres à COBRA SOFT B.P. 155 71104 CHALON S/S 






rqhJOUR \ ^ 

''"■^VŒuæ 

'fi ^•''-''^ ^ __ \ horizontale de gauche à droite. 

^ 1 ^ t I \ Ceci est très insuffisant dans le 

I 1 Jp\ \ cas de CAO et DAO, conception 

/ç'^ ' (jtj r. 1 nRÎ’' ^ \ dessin, assistés par ordina- 

/; pr. i \ teur. 

^ S'' \ Le programme proposé permet 

'’<Y. f:y •* \ l'écriture évoluée à partir du jeu 

■■ /•‘■y />/ r \ de caractères standard ou tout 

" O/ ,*• ui\ autre, chargé auparavant à la 

■' . place de celui-ci. Le début de ce 

'-A tableau est situé à l'adresse 
^ > Ç:- Y38 912 (variable I). 

A. ‘*^ Les fonctions de base sont assez 

\ V ^ ^ f?. _ ^ 3?! nombreuses : 

•5'^—*' - \ — Ecriture avec ou sans image 

Ô" ' symétrique (S$ = "O" ou "N"). 

U U\V'"\\*" ' \ Les trois types de symétries sont 

W'Ili' ll \\ iV' W’.'i.i ”” \ possibles : par rapport à l'axe X, 

\r U'' ' -'îvC' \ Y ou symétrie polaire (C$ = "X', 

' \ "Y" ou "O"). 

v-V'"- \ — Choix de l'origine en coordon- 

\ •^v, 'ï V'';. 'wr""' ^ \ nées X, Y. Le curseur est posi- 

\ Uionné comme pour la fonction 

^.ff r%ur réaliser vos plus ballas pages titres, voici un pro- "CHAR" dans l'angle supérieur 
^Tli gramme qui, bien que lent à l'exécution, provoquera gauche du premier caractère 
quelques effets spectaculaires. (variables X, X2, Y, Y2). Ne pas 

oublier que l'origine de l'écran se 

Les possibilités graphiques de cet l'écriture en haute résolution gra- situe dans I angle supérieur gau- 

ordinateur sont assez bonnes, phique, et l'utilisateur peut rem- à i'k • 

mais il ne possède qu'un seul jeu placer le jeu standard par ses pro- ~ Angle par rapport a I honzon- 

de caractères alphanumériques. près caractères. Néanmoins, taie en radians. Compte tenu de 

La fonction "CHAR" permet l'écriture sera toujours la même I onentatiori de I écran sur ORIC, 

l angle positif est dans le sens 

,nnn __ cles algujlles d'une montre (varia- 

inin PPM " -===^ Ainsi, un angle A = 0, don- 

^ nera l'écriture horizontale nor- 

ECRITURE EVOLUEE male, A =-PI/2, l'écriture verti- 

1030 REM v^\ cale de bas en haut et A = - PI/4, 

1040 REM C D. Vasil ievic f \ l'écriture à 45° du bas à gauche 

1050 REM y /^»l ^ droite. Tous les 

1060 REM avril 1985 J angles sont possibles, mais 

1070 REM n compte tenu de la faible résolu- 

1080 REM ORICl Q tion de l'ORIC, l'écriture oblique 

1090 REM donnera ses caractères plus ou 

1100 REM================^===========================-======================= moins "chinois". Nous verrons 

1110 : HIMEM#6DFF:HIRES:I=38912’C0NDIT1WS plus loin comment y remédier. 
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— Largeur (L, L1 ) et hauteur (H, 
H1 ) au choix, ces valeurs étant 
entières. 

— Caractères déformés selon X 
ou Y (variables DX, DY). Les fac¬ 
teurs de déformation (zéro pour 
caractère non déformé) permet¬ 
tent d'obtenir les caractères à 
rayures verticales (DX = 1 ), hori¬ 
zontales (DY = 1 ) ou à cottes de 
mailles (DX = DY = 1 ). Les dimen¬ 
sions des caractères doivent être, 
dans ce cas, égales ou supérieu¬ 
res à 2 dans le sens de déforma¬ 
tion. Toutes les valeurs sont pos¬ 
sibles, mais attention au résultat. 

— Choix de l'inclinaison : pour 
IX = 0, l'écriture droite, IX = 1, 
penchée à gauche, IX = - 1, pen¬ 
chée à droite. 

— Choix de distorsion : pour 
IY = 0, l'écriture droite, IY=1, 
angle gauche déplacé vers le 
haut, IY=-1, angle gauche 
déplacé vers le bas. 

— Effet de perspective progres¬ 
sive (P=1) ou dégressive 
(P= - 1 ), en absence de perspec¬ 
tive P=0. 

— Ecriture prioritaire. Pour 
PI =0, l'écriture en cours sera 
superposée à l'écriture ou au des¬ 
sin existant sur l'écran. Pour 
PI = 1, l'écran sera effacé à l'em¬ 
placement de la nouvelle écriture, 
ce qui donne l'effet d'une éti¬ 
quette couleur fond avec écriture 
couleur encre. Ce paramètre, 
associé à celui de l'écriture 
inverse (E), permet la création des 
étiquettes de couleur encre avec 
texte couleur fond. 

— Effet escalier. Les paramètres 
EX et EY sont dissociés de la 
notion d'angle d'écriture et per¬ 
mettent ainsi de déplacer le 
caractère en cours d'une valeur 
quelconque par rapport à son 
emplacement normal. Ceci per¬ 
met d'écrire les caractères hori¬ 
zontaux superposés verticale¬ 
ment ou en escalier, etc. Ces 
deux paramètres, associés habi¬ 
lement aux effets de perspective, 
permettent de choisir le niveau de 
l'horizon et les angles de fuite. 

— L'écriture inverse permet 
l'écriture de couleur opposée 
(point par point) à celle trouvée 
sur l'écran. Pour écriture inverse, 
E = 1, sinon E = 0. 

Toutes les fonctions de base peu- 


1120 : REM- 

1130 : REM ENTREE DES PARAMETRES 

llAO : REM- 

1150 PRINT:IMPOT'IMAGE AVEC SYMETRIE (0 ou N)';S$:CLS:PRINT 
1160 : IF S$='M'THEN1180 

1170 : INPUT'PAR RAPPORT A X,Y 00 0';C$:CLS:PRINT 

1180 : INPOT'Oriqine X,Y';X,Y:CLS:X2=X:Y2=Y;PRINT 

1190 : INP0T'ANGLE'!A;CLS:SN=SIN(A);CS=C0S(A):PRINT 

1200 ; INPOT'Coefficient de LARGEOR'îL:CIS:L1=L:PRINT 

1210 : INPOT'Cœfficient d’ HA0TE0R';H:CLS:H1=H;PRINT 

1220 : INPOT'Coefficient de DEFORMATION X';DX:aS:PRINT 

1230 : INPOT'Coefficient de DEFORMATION Y';DY:aS:PRINT 

12A0 : INPOT'Coefficient d’ miNAISON X';IX:aS:PRINT 

1250 : INPOT'Coeffl Tient de DISTORSION Y';IY:aS:PRINT 

1260 ; INPOT'Coefficient de PERSPEQIVE P';P;CLS:PRINT 

1270 : INPOT'Coefficient de PRIORITE ';Pl;aS:PRINT 

1280 ; INPOT'FFET D’ ESCALIER X, Y ’îEX.EYiCLSiPRINT 

1290 : INPOT'ECRITORE INVERSE';E:CLS:PRINT 

1300 ; lNP0T'TEXT':A$:aS:FLA6=l:PL=0:D=l;PRIMT 

1320 REM prograiMke principal 

13A0 F0RK=1T0LEN(A») 

1350 ;IFP>OTHENL=LltK»P!H=HltK*P 

1360 :1FP<0THENL=L1/LEN(A$)«(LEN(A$)-K+1):H=H1/LEN(A*)«(LEN(AS)-K+1) 

1370 :CA=ASC(MlDi(A$,K,l)):CLS:PRINT 
1380 iPRlNT'Code ASCII en cours; ',CA 
1390 ;F0RJ=OT07:J1=J*H«SN:J2=J»H*CS: 11=1X*J 
lAOO : 1FP1=1THENG0S0B1550 
lAlO : V=PEEK(I+8*CA+J*FLA6+7*PL) 

1A20 : IFD=2THEN60S0B2020 

1A30 : F0RC=3T08;C1=(C-3)*L»CS:C2'=(C-3)*L*SN:I2=IY*C 
lAAO : Z=1NT(2*(8-C)) 

1A50 : IFV>=ZTHEN60SUB1900ELSE1A60 
1A60 : NEXTC 
1A70 :ÆXTJ 

1A80 :OND60SOB2080,2200 
1A90 NEXTK 

1500 IFS$='0'TH£N1680 

1510 INPOT'Autre text (0 ou N)';Tt:IFT$='0'Tf€N1150ELS£END 

1520 REM=========================================================== 

1530 REM effaceeent pour priorité 

15A0 REM- 

1550 F0RC=3T08:Cl=(C-3)*LtCS:C2=(C-3)«L*SN:I2=lY*C 
1560 :FORS=OTOL-1:FORT=OTOH-1 
1570 : X1=C1-J1+S*CS-T*SN+I1+X+S*DX»CS-T»DY*SN 
1580 : Xl=INT((Xl-INT(Xl))*10/5+INT(Xl)) 

1590 ; Y1=C2+J2+S*SN+T*CS+I2+Y+S*DX»SN+T«DY*CS 
1600 : Yl=INT((Yl-INT(Yl))*10/5+INT(Yl)) 

1610 : CURSETX1,Y1,0+E 
1620 NEXTT,S.C:RETURN 

1630 REM=================================:=============================== 

16A0 REM paraiftetres pour symétries 

1650 REM- 

1660 REM synetrie polaire 

1670 REM- 

1680 S»='N*:IFC$='0'THENA=A+P1:SN=SIN(A):CS=COS(A) 

1690 IFP<>0T1€NL=L1;H=H1 
1700 IFC$<>'0'THEN1770 
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1710 X=K2+(16«H-1)*SN+(2*L+1)»CS:V=Y2-(16*H-1)*CS+(2*L+1)»SN 
1720 : X=lNT(a-lNT(X))*10/5+lNT()O) 

1730 : Y=INT((V-INT(Y>)«10/5+INT(Y)):G0T01340 

1740 RÊM- 

1750 REM s^iwtne osr x 

1760 REM- 

1770 FLA6=-1:PL=1:<=X2-8tH*SN:Y=Y2+8*H*CS 
1780 : X=INT((X-INT(X)t*10/5+lNT(X)) 

1790 : Y=INT((Y-INT(Y))»10/5+INT(Y)) 

1800 IFC*="X*T1€N1340 

1810 REM- 

1820 REM symétrie Dsr y 

1830 REM--- 

1840 :X=X2-8*L»CS:y=Y2-8*L*SN:D=2:FLAG=l;PL=0 
1850 : <=ÎNT((X-INT(X))*10/5+INT(X)) 

1860 : Y=INT((Y-INT(Y))*10/5+ÎMT(Yl):G0T01340 

1880 REM écriture 

1890 REM--- 

1900 :F0RS=0T0L-1:F0RT=0T0H-1 

1910 : X1=C1-J1+S*CS-T*SN+I1+X+S*DX*CS-T*DY*SN 

1920 : Xl=INT((Xl-INT(Xl))*10/5+INT(Xl)) 

1930 : Yi=C2+J2+S*SN+T»CS+I2+Y+S*DX*SN+T»DY*CS 
1940 : Yl=lNT((Yl-INT(Vl))*.C/5+INT(Yl)) 

1950 : CUR3ETX1,Y1,3;B=P0ÎNT(X1.V1)*-1:IFP. ,'£THEN1980 
1960 : CURSEÎXl.Yl.l+E 
l‘:70 iNEXTT.S 
1980 :V=V-Z:RETURN 

1990 REM==========================================================r===== 

2000 REM caractère symétrique y 

2010 REM--- 

2020 Vl=0:F0RC=3T0e 

2030 : 2=INT(2*(8-C!):IFV>=ZTHENV1=V1+INT(2MC-3)):V=V-Z 

2040 : NEXTC:V=V1:RETURN 

2050 REM======================================================~=====^=r 

2060 REM calcul coordonnées 

2070 REM- 

2080 :IFP=0THENX=6»L*CS+X+EX 

2090 :IFP>0THENX=6*L«CS+X+ABS(P-PL)*8*H!*SN+EX 

2100 :1FP<0THENX=6*L*C3+X-(ABS(P)-PL)*8»SS‘+EX 

2110 :IFP=0THENY=6»L*SN+Y+EY 

2120 :IFP>0THENy=6tL*SN+Y-ABS(P-PL)«Hl+3*CS+EY 

2130 :IFP<0THENY.-6*L*SN+Y+(ABS(P)-PL)*8*CS+EY 

2140 : X=INT((X-INT(X))*10/5+lNT(X)) 

2150 : Y=lNT((Y-lNT(Y))*10/5+lNT{V)) 

2160 iRETURN 

2170 REM============================^=====:=====ï==========-================= 

2180 REM calcul cocrdonnees syiaetrie y 

2200 :IFP=QTHENX=-6*L*CS+X-EX 

2210 : IFP >0THENX=-6*(L+1)«CS+X+ABS(P-PL)«8*H1*SN-EX 

2220 :IFP-;0THENX=-6*(L-1)*CS+X-(A3S(P)-PL)*8»SM-EX 

2230 :IFP=0THENY=-6*L*SN+y+EY-SN 

2240 :1FP>0THENY=-6»(t+11<SN+ Y-ABS(P-PL)*H1*8*CS+EY 

2250 :1FP 0THENY=-6*(L-1)♦SN+Yr(ABS(P)-PL)^8*CS*EV 

2260 : X=INT((X-INT(X))*10/5+IMT(>;i) 

2270 : V=INT((y-IMT(Y»)*10/5+IMT(Y)i 
Z'I-SO iRETlJRN 

2290 PWFI31.93:CALLItED01 !SÎ2:Cf!-228CB 


vent être utilisées, soit isolées, 
soit associées à une ou plusieurs 
autres fonctions et même à tou¬ 
tes les autres simultanément. Les 
seules restrictions sont liées aux 
dimensions des caractères et 
quelques impossibilités en pers¬ 
pective avec symétrie. 

Ceci est dû au désir d'écrire un 
programme très court pour éviter 
une longue saisie. 

Chaque utilisateur a la possibilité 
de modifier les formules afin de 
changer l'effet de tel ou tel para¬ 
mètre, par exemple pour pallier à 
l'effet des caractères "chinois" 
lors de l'écriture oblique, il faut 
supprimer l'effet de l'angle sur les 
indices de dimensions S et T des 
blocs effacement et écriture. 
Ainsi, la ligne 1910 sera : 

XI =C1 -J1 -t-S-T-l-11 -(-X + S* 
DX-T*DY 

Les autres lignes comportant S et 
T seront modifiées de même 
façon. 

LISTE DES 

VARIABLES NON CITEES 
DANS LE TEXTE 

D : Témoin symétrie Y : D = 2 
Sinon : D = 1. 

PL et FLAG : paramètres de lec¬ 
ture des caractères. 

Pour symétrie Y : FLAG = - 1, 
PL = 0. 

Pour symétrie X ; FLAG = 1, 
PL= 1. 

Sinon : FLAG = 1, PL = 0. 

A$ : Texte à écrire. 

K : Indice de boucle, caractère en 
cours. 

CA : ASCII de caractère en cours. 
J : Indice de boucle, ligne de 
caractères en cours. J1, J2, Il : 
paramètres liés à J. 

V : Valeur d'octet représentant 
une ligne de caractères en cours. 
Z : Valeur de comparaison pour 
point en cours. 

C : Indice de boucle, point en 
cours. Cl, C2, 12 : paramètres 
liés à C. 

T$ : Chaîne de service. 

S, T : Indices de boucles point/ 
ligne liés aux dimensions des 
caractères. 

XI, Y1 : Coordonnées du point 
en cours. 

VI : Valeur de ligne du caractère 
en cours inversé (pour symétrie 
V). 
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Raymond ALLASSEUX 


NEW/NUL 

M. Raymond ALLASSEUX a 
pensé à tous les étourdis et nous 
propose une routine qui permet 
de récupérer un programme Basic 
effacé par la commande NEW. 
Après avoir exécuté un NEW 
malencontreux, il vous suffira, 
pour récupérer votre programme, 
de charger NEW/NUL et de l'exé¬ 
cuter par un CALL AD (AD = 
adresse de début de la routine) si 
vous ne l'aviez pas sauvegardée 
en AUTO. 

Votre programme Basic est de 


nouveau accessible. Vous pou¬ 
vez de nouveau le lister, l'exécu¬ 
ter, le sauvegarder si vous aviez 
oublié de le faire. 

NEW/NUL est entièrement relo¬ 
geable, mais il est préférable de 
l'implanter hors de la zone Basic. 
REMARQUE : Après avoir exé¬ 
cuté la routine, le message 
SYNTAX ERROR sera affiché, ne 
pas en tenir compte. 


170 DftTft E860, 331 


180 DATA FIN, 

0 


tA800 

A59A 

LDA 

$9A 

«A802 

A49B 

LOT 

*9B 

$A804 

18 

CLC 


»A805 

6903 

ADC 

ttt03 

*A807 

9001 

BCC 

«A80A 

*A809 

C8 

INY 


*A80A 

85E9 

STA 

»E9 

*A80C 

84EA 

STt 

*EA 

*A80E 

A960 

LDA 

tt$60 

*A810 

85EB 

STA 

*EB 

«A812 

20E200 

J SR 

«00E2 

♦A815 

D0FB 

BNE 

*A812 

«A817 

20E200 

J SR 

«e0E2 

*A81A 

A5E9 

LDA 

*E9 

♦A81C 

A00e 

LDT 

t)«00 

»A81E 

919A 

STA 

(*9A), T 

$A820 

C8 

INY 


*A821 

A5EA 

LDA 

*EA 

»A823 

919A 

STA 

C«9A3,Y 

$A825 

20E200 

J SR 

«e0E2 

«A828 

D0FB 

BNE 

«A825 

*A82A 

20E200 

J SR 

$00E2 

$A82D 

D0F6 

BNE 

$A825 

♦ A82F 

20E2e0 

J SR 

«00E2 

»A832 

D0F1 

BNE 

*A825 

*A834 

20E20e 

J SR 

*00E2 

♦A89? 

A5E9 

LOA 

*E3 

$A839 

A4EA 

LDY 

$EA 

«A83B 

859C 

STA 

♦ 9C 

*A83D 

849D 

STY 

*9D 

tA83F 

A9C9 

LOA 

«tes 

*A841 

85EB 

STA 

«EB 

$A843 

60 

RTS 



M Kt.n 

1 REH = Récupéré un programme BASIC * 

2 REH = ellace par la commande NEU •• 

3 REH = par Raymond ALLASSEUX = 

A REH = le 28 ^ 01^85 

10 READA:L= 100 

20 READC$,E:T= 0:L=Lr 10 :1FC» = "FJN"THEN 
END 

30 F0R1= 1T0LENCC*3STEP 2 
40 U=-UALC"t("rHID«CC», 1,2) 1 :POKEA, U :A=Ar 
1 :T=T+U;NEXT 
50 IFT=EG0T0 20 

60 PR1NT"ERREUR A LA LIGNE"L:END 
100 REH === DATAS ROUTINE HACHINE === 
105 DATA 43008 •’ REH Début routine 
110 DATA A59AA49B1869039001C885, 1248 
120 DATA E984EAA96085EB20E200D0, 1698 
130 DATA FB20E200A5E9A000919AC8, 1566 
140 DATA A5EA919A20E200O0FB20E2, 1673 
150 DATA 00D0F620E200D0F120E200, 1419 
160 DATA A5E9A4EA859C8490A9C985, 1877 



T out programmeur désire pos¬ 
séder un maximum d'outils, 
qui lui permettent, dans une 
situation donnée, de se tirer d'af¬ 
faire FK)ur manipuler des lignes de 


programmes, ausculter la mémoire 
ou afficher le contenu des varia¬ 
bles. 

En voici qui regroupe quelques- 
unes de ces fonctions. 


PRESENTATION 

Cet Utilitaire occupe, dans cette 
version, # 268 octets mais, pen¬ 
dant son fonctionnement, il 
emploie 80 octets en plus, immé¬ 
diatement derrière. 

Il comprend actuellement trois 
commandes, mais peut en rece¬ 
voir beaucoup d'autres, telles cel¬ 
les déjà publiées dans THEORIC. 
Le point d'exclamation (!) est uti¬ 
lisé pour les commandes, mais 
cela ne porte pas préjudice à vos 
autres utilisations du "I", notam¬ 
ment pour les drives. 

COMMANDES 

FIND permet de rechercher une 
ou plusieurs lettres ou TOKEN 
dans un programme Basic ou 
dans une source pour le SUPER¬ 
ASSEMBLEUR. 

La syntaxe en est : IF: (séquence 
à chercher terminée par return). 
Le délimiteur (:) existe pour pou¬ 
voir chercher une séquence 
commençant par des espaces. Ce 
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délimiteur peut être changé par 
POKE # A,ASC ("signe choisi”), 
bien sûr, après la mise en service 
de l'utilitaire. 

Les lignes contenant la séquence 
sont listées à l'écran. Cette liste 
peut être stoppée provisoire¬ 
ment, ou définitivement de façon 
habituelle (espace, contrôle (i). 
On peut sortir la liste sur impri¬ 
mante en écrivant : 

POKE #2F1,128:!F:séquence... 

DELETE permet de détruire un 
bloc de lignes d'un programme. 
Syntaxe:!d numéro de ligne 
début-numéro de ligne fin. 

On utilise le d minuscule pour que 
l'utilisateur fasse la différence 
avec le D de la commande DIR du 
drive. 

On peut, sans problème, donner 
des numéros de lignes début et 
fin inexistants, la commande 
détruira les lignes intermédiaires, 
s'il y en a. 

VIDAGE peut être utiisée en 
mode direct, après un CTRL C ou 
dans un programme. Syntaxe:IV. 


Quand le programme rencontre 
cette commande, il affiche la liste 
des variables entières, réelles et 
chaînes, suivies de leur valeur. Si 
la liste dépasse la capacité écran, 
on peut stopper provisoirement 
en appuyant sur SHIFT. 

Les variables dimensionnées ne 
sont pas sorties car elles pren¬ 
draient trop d'espace à l'écran. 

FIN. Cette commande "débran¬ 
che l'utilitaire du point d'interro¬ 
gation sans préjudice pour le 
reste (drive entre autres). 
Syntaxe !E. • 

VARIABLES UTILISEES 

OA 

Contient le délimiteur pour FIND. 
18/19 

Adresse de début pour conver¬ 
sion des TOKEN. 

33/34 

Numéro de ligne à chercher pour 
DEL. 

35 

Début du tampon d'entrée du 
Basic. 

40/41 


Recopie de 9C/9D. 

42/43 

Pointeur temporaire adresse de la 
chaîne de traitement. 

4C/4D 

Sauvegarde de CE/CF. 

9C/9D 

Pointeur fin de Basic, début des 
variables. 

A9 

Test du mode direct dans DEL 
(#FF). 

B8 

Sauve Y. 

CE/CF 

Adresse ligne cherchée (DEL). 
EB 

Pointeur d'exploration du Basic 
(FIND). Modification de GETCAR 
(RTS ou CMP #). 

J'espère que ces routines vous 
rendront, comme elles me ren¬ 
dent, de grands services et, peut- 
être, serez vous tenté de les per¬ 
fectionner. Par exemple, la rou¬ 
tine FIND pourrait avoir une 
option échange pour modifier les 
lignes où se trouve la séquence 
à rechercher. 
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f6rth 



Michel ZUPAN 


L es fenêtres sont des objets informatiques ouvrant de 
vastes perspectives dons tous les domaines de l'affi¬ 
chage. Après les articles de Frédéric TARAUD (THEORIC 
n** 13 et suivants), voici comment FORTH réalise rapidement 
leur mise en œuvre. 


COTE COURS 

Une fenêtre est une surface affi¬ 
chable se superposant à tout ou 
partie de la surface de l'écran 
lorsqu'elle est "ouverte" et res¬ 
tituant cette surface à sa "ferme¬ 
ture". Les applications sont 
innombrables et les logiciels pro¬ 
fessionnels y ont très souvent 
recours. 

FORTH permet de concevoir une 
telle structure en la généralisant 
au maximum. Il est ainsi possible 
de définir autant de fenêtres que 
l'on veut, sans limitation de taille, 
autre que celle de la mémoire ; 
une fenêtre peut, en théorie, faire 


255 lignes de 255 caractères et 
être positionnée en n'importe 
quel point de l'espace affichage, 
y compris hors des limites de 
l'écran. L'écran est alors lui- 
même une "lucarne" déplacée 
devant la fenêtre. 

Nous définirons une fenêtre par 
son nom, sa LARGEUR, c'est-à- 
dire son nombre de colonnes, sa 
HAUTEUR, le nombre de lignes, 
sa position dans le repère d'affi¬ 
chage par les coordonnées du 
COIN (—X y) supérieur gauche. 

Le contenu de la fenêtre est une 
surface de mémoire dépendant 


de sa taille, de même que son 
tampon destiné à sauver tempo¬ 
rairement tout ou partie de 
l'écran. 

La VITRE (— c adr) est la partie 
visible de la fenêtre courante. 
Sous-ensemble de la fenêtre, 
c’est la seule surface destinée à 
être affichée dans la LUCARNE 
I--C adr), elle-même sous- 
ensemble de l'ECRAN. 
TAMPON (— c adr) sauve la 
LUCARNE quand la VITRE est 
posée dessus. La définition d'une 
fenêtre prévoit de dimensionner 
son tampon à la plus grande vitre 
affichable. 

Un CACHE (-.--) va permettre de 
découper, grâce à une fonction 
INTERVALLE (x I max — X I) une 
LUCARNE fixée sur l'écran en 
LUC-X et LUC-Y et dimensionnée 
par LIGNES et COLONNES. 
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forth 


FIXE {x V —) détermine les coor¬ 
données du COIN (— X y ) de la 
fenêtre qui peut être ainsi dépla¬ 
cée. 

Le verbe CALQUE (cl adri c2 adr3 
—) sert à décalquer une surface 
de LIGNES fois COLONNES 
depuis un espace adri organisé 
en cl colonnes vers un espace 
adr2 de c2 colonnes. Ce mot uti¬ 
lise le standard PICK que le Forth 
TANSOFT doit chercher dans les 
extensions. 

Rassurez-vous, nous en avons 
terminé avec une théorie que 
vous trouvez peu lumineuse pour 
des fenêtres. Nous disposons des 
primitives pour écrire tous les 
mots utilisateur. 


COTE JARDIN 

DEF-FENETRE (L H —) est le 
maître-mot de définition des fenê¬ 
tres : 

20 10 DEF-FENETRE MENU 

définit une fenêtre MENU (—) de 
20 caractères de large et haute 
de 10 lignes. Sa position est ini¬ 
tialisée au début de l'écran et les 
200 octets de son contenu ainsi 
que les 200 octets de son tam¬ 
pon sont pour l'instant des 
blancs. 

Désormais, chaque appel de 
MENU en fait la FENETRE (— adr) 
courante avec sa LARGEUR et sa 
HAUTEUR. 

OUVRE (x y --) ouvre la fenêtre 


courante à la position x,y : 
MENU 10 10 OUVRE 
FERME (—) vous l'auriez deviné, 
referme MENU. 

Et pour écrire le contenu d'une 
fenêtre, il suffit de MENU EDITE 
(—) qui est un éditeur plein écran 
simple autorisant les flèches, les 
divers attributs couleur et autres 
par escape et dont on sort par un 
CTRL-C. 

Et tout ça tient dans deux pages 
FORTH. En serrant un peu, vous 
me mettrez la sauvegarde des 
fenêtres sur blocs, l'animation de 
lutins, des menus déroulants, les 
bases d'un tableur ou d'un trai¬ 
tement de texte 80 colonnes. 
Prenez garde aux courants d'air... 


SCRN# 80 

< 0) < FENETRES Oric-1 / Atmos Jan. 86 ) 

< 1) FORTH DEFINITIONS DECIMAL 

< 2) 48040 CONSTANT ECRAN 40 CONSTANT NB-COL 27 CONSTANT NB-LIG 

< 3) 0 VARIABLE FENETRE 0 VARIABLE LARGEUR 0 VARIABLE HAUTEUR 

< 4) 0 VARIABLE LIGNES 0 VARIABLE COLONNES 

< 5) 0 VARIABLE LUC-X 0 VARIABLE LUC-Y 

< 6) : DEF-FENETRE <BUILDS OVER C, DUP C, 2 , 0 , 

< 7) OVER NB-COL MIN OVER NB-LIG MIN * ROT ROT * + 

< 8) HERE OVER ALLOT SWAP BLANKS 

< 9) D0ES> DUP C@ LARGEUR ! DUP 1+ C@ HAUTEUR ! 

(10) FENETRE ! ; 

<11) : INTERVALLE >R OVER 0 MAX ROT ROT + R> MIN OVER - ; 

<12) : FIXE FENETRE @ DUP ROT SWAP 4 + ! 2+ ! ; 

<13) : COIN FENETRE @ 2+ DUP @ SWAP 2+ @ ; 

(14) : CACHE COIN HAUTEUR @ NB-LIG INTERVALLE LIGNES I LUC-Y ! 

<15) LARGEUR (? NB-COL INTERVALLE COLONNES I LUC-X ! ; --> 


SCRN# 81 

< 0) < FENETRES 2 ) 

( 1) : CALQUE LIGNES @ 0 > COLONNES (3 0 > AND IF LIGNES (3 0 DO 

< 2) 3 PICK 5 PICK I * + OVER 4 PICK I * + COLONNES @ 

< 3) CMOVE LOOP THEN DROP DROP DROP DROP ; 

( 4) : VITRE LARGEUR @ FENETRE (? 6 + COIN LUC-Y @ - 

< 5) LARGEUR @ * - - LUC-X @ + ; 

< 6) : LUCARNE NB-COL LUC-Y @ OVER * LUC-X @ + ECRAN + ; 

< 7) : TAMPON COLONNES @ FENETRE @ LARGEUR @ HAUTEUR @ * 6 + + ; 

< 8) : OUVRE FIXE CACHE LUCARNE TAMPON CALQUE 

< 9) VITRE LUCARNE CALQUE ; 

<10) : FERME CACHE TAMPON LUCARNE CALQUE ; 

(11) : EDITE CLS ECRAN NB-LIG NB-COL t 126 FILL COIN OUVRE 
<12) BEGIN KEY DUP EMIT 3 = UNTIL 

<13) LUCARNE VITRE CALQUE CLS ; 

<14) ;S 
(15) 
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— Un jeu d’arcade 
en langage machine 
sur un thème que 
personne n’avait osé 
aborder... 

35 F 


MJCRaoac 

pxàitnta 


35 F 




ORIC1 ETATMOS 

aa S<L»nu 


— Enfin un jt 
d’arcade en langa, 
machine pour l 
tout petits ! 


MCROIOGC 


EDiïEUR 

ASSEMBLEUR 

VERSION 1.1 


OBC I 

ET ATAAOS AAichel Bcrt 


80 F 

— Un éditeur- 
assembleur de con¬ 
ception profession¬ 
nelle à un prix sans 
égal. 


45F 


BON DE COMMANDE 

A retourner aux Editions SORACOM — La Haie de Pan — 35170 BRUZ 
Nom .Prénom . 


Adresse . 

Livres 

□ Communiquez avec votre ORlC-1 ATMOS .. 

□ Mieux programmer sur ORIC-1 et ATMOS .. 

□ Apprenez l’électronique sur ORIC et ATMOS 

□ Naviguez sur ORIC et ATMOS. 

Ci-Joint en règlement un chèque de. 


Cassettes 

145 F □ Poopy .35 F 

110 F □ Water Panic.35 F 

110 F □ Editeur-Assembleur.80 F 



F -F 10 % de port. 

























































































garde. Le nom du code ainsi 
sauvé est "MENU.LEO". 


F atigué de voir votre moniteur vous regarder bêtement ? 
Désireux de dessiner les couvertures de THEORIC ? Voilà 
qui devrait vous combler, un D.A.O. (Dessin Assisté par 
Ordinateur) 100 % langage machine, ultra-performant. 

Avec les 4 touches fléchées, la 
barre d'espace et la touche 
ESCape, vous allez vous dépla¬ 
cer, valider, afficher le menu afin 
de réaliser des chefs-d'œuvre de 
premier ordre. 

Les fonctions proposées : efface, 
mémorise/rappelle, recopie 
d'écran, pointillés, scrolling laté¬ 
ral de l'écran, remplissage, point, 
droite, ligne, cercle, rectangle, 
gomme et quitter. En tout 18 
fonctions qui vont vous permet¬ 
tre de créer des dessins ou de 
modifier vos anciens chefs- 
d'œuvre. 

Mais, avant tout, il va falloir 
entrer 5 ko de code machine 
(2 ko pour le dessin du menu, et 
3 ko pour le programme de DAO 
proprement dit). Pour vous faci¬ 
liter la tâche, nous avons trans¬ 
formé le tout en un programme 
Basic, créant le code machine à 
l'aide des DATA. Dans le but de 
limiter les erreurs de frappe, nous 
avons introduit une somme de 
contrôle. En cas d'erreur, le mes¬ 
sage ERREUR EN LIGNE xxxx 
apparaît. Vérifiez alors cette 
ligne. Ce procédé ne permet pas 
de détecter les inversions d'oc¬ 
tets. Ainsi, si vous tapez 60,A9 
au lieu de A9,60, l'erreur ne sera 
pas détectée. 

La partie proposée ce mois-ci est 
la création du menu. Entrez-la 
sans faire de faute, et sauvez le 
programme Basic que vous avez 
tapé. Tapez alors RUN. Le mes¬ 
sage IMPLANTATION DU CODE 
apparaît. Une à deux minutes 
plus tard, le programme vous 
demande si vous désirez sauve¬ 
garder le résultat. Répondez 
NON. On vous demande ensuite 
si vous désirez visualiser le résul¬ 
tat. Répondez O. Vous passez 
alors en mode haute résolution, 
et le menu se dessine. Si le résul¬ 
tat vous paraît correct, relancez 
le programme par RUN et répon¬ 
dez O à la demande de sauve- 


Conservez-le préciseusement sur 
une cassette à part, c'est ce qui 
vous servira pour l'utilisation du 
DAO. 

Pour les possesseurs du lecteur 
de disque, modifiez la ligne 470 
comme suit : 

470 IF A$ = "0" THEN ISAVE 
"MENU.BIN, #8FB0, #97C0". 
Voilà, au mois prochain pour les 
3100 octets restants de Léonard. 


-Eric VIEL 


100 REM- 

110 REM 

120 REM LEONARD 

130 REM 

lAO REM CREATION DU CODE DU MENU 
150 REM 

160 REM PARTIE 11 

170 REM 

180 REM -- 

190 REM 

200 REM AUTEUR: ERIC VIEL 

210 REM 

220 REM (C) ERIC UEL / FRANCE 1986 
230 REM 
2A0 REM- 
250 : 

260 : 

300 TEXT:aS:HIMEM IAFFF:D0KE*3C6.IFFFF 
310 PRINT*IMPLANTATION DU MENU EN COURS...' 

320 : 

330 : 

3A0 FOR I=#eFE0 TO I97îf 3TEP 8 

350 : FOR J=I TO 1+7 

360 : READ DTAI 

370 : DTA=VAL('I'+DTA$) 

380 : POKE J.DTA 

390 : S=S+DTA 

AOO : NEXT J 

AlO : READ CS 

A20 : IF CSOS THEN PRINT'ERRE'JR EN LIG.NE •;L+IOOOO:PIN5:PIN6:END 

A30 : S=C 

AAO NEXT I 

A50 DOKEI306,12710 

460 INPUT'DESIREZ-VOUS UNE SAUVEGARDE 'iA* 

470 IF A$='0' THEN CSAVE'MENU'.A#8FE0.E»97FF 
480 : 

490 : 

500 INPUT'DESIREZ-VX'US VISUALISER LE RES'JLTAT 'iAI 
510 IF A$-’N' TÆN END 
520 : 

530 X=O:Y=0:M3=ieF30:H5=IAOOO:HIRES 
540 POKE M5+Y,PEEK(M3+Y):Y=Y+1:IF Y07 TmEN 540 
550 Y=0:X=X+1:M3=M3+7:M5=M5+A0:!F XO160 THEN 540 
560 POKE M5+Y.PEEK!M3+Y):Y=Y+1:IF YO40 THEN 560 
570 Y=0:X=)t+l:M3=M3+40:M5=M5+40:IF X0200 THEN 560 
580 END . 

10000 DATA 7F,7F,7F,7F.7F.7F.7C.61,983 
10010 data 40,50,50.40.40,4C,60,60,620 
10020 DATA 60,50,AO.AO,4C,60.51,40,621 
10030 DATA 53,78,40.4C,60,44,40,50,657 
10040 DATA 62,40,4C,60,44,40,50,62,64A 
10050 DATA 46,4C,60,44,40,50.63,69,664 
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10060 DATA AC,60,51,AO,50,62,6F,AC,682 
10070 DATA 60,60,60.50,62,68,AC,61,7A3 
10080 DATA A0,5O,5O,62,67,AC,6O,AO,661 



10090 DATA A0,50,A0,A0.AC,60,A0,A0,572 
10100 DATA 51,7C,AO,AC,60,AO,40,51,650 
10110 DATA A0,A0,6C,60.A0,AO,51,A0,6O5 
10120 DATA A0.6C,61,A6,58,51,79,73,7AA 
10130 DATA 6C,62,68,60,51,A1,5A,6C,7AA 
lOlAO DATA 63,6C,70,51,A1,5A,6C,62,755 
10150 DATA A0,6O,51.7D,53,6C,61,68,766 
10160 DATA 60,50,AO.AO,AC,60,AO,AO,604 
10170 DATA 50.A0.A0.AC.7F,7F.7F.7F.7‘)2 
10180 DATA 7F.7F,7C,60,A0.A0.50,A0.7A6 
10190 DATA A0.AC,60.AA,A0,50,AQ,Aû,576 
10200 DATA AC,60,AE,A0,55,55,55,AC,6A5 
10210 DATA 60,55,A0,50,AO,A0,AC,61,626 
10220 DATA AA,50,56,59,66,AC,62,AA,667 
10230 DATA A8,50,A0,AO,AC,67,7F,7C,710 
102A0 DATA 57,65,79,AC,62,AA,A8,50,703 
10250 DATA AO,AO,AC,61,AA,50,57,78,656 
10260 DATA 7F,AC,60,55,A0,50,A0,A0,656 
10270 DATA AC,60,AE,A0,57,7F,7F,AC,731 
10280 DATA 60,AA,AO,50,AO,AO,AC,60,608 
10290 DATA AO,A0,5O,AO,A0,AC,6O,AO,572 
10300 DATA A0,50,AO,4O,AC,6E,7î,62,679 
10310 DATA 57,5C,7A,AC,68,62,55,52,7A6 
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10320 DATA 52,6A,AC,6E,63,65,52,5C,7A8 
10330 DATA 7A,AC,62,62,55,52,52,6A,7A9 
103A0 DATA AC,6E,7A,52,52,52,6A,AC,7j 6 
10350 DATA 6O,A0,AO,50,AO,A0,AC,7F,635 
10360 DATA 7F,7F,7F,7F,7F,7C,60,AO,919 
10370 DATA AO,50,AO,AO,AC,63,78,AO,631 
10380 DATA 53,7F,A0,AC,6A,AA,A0,52,66A 
10390 DATA A1,A0,AC,65,5A,5A,53,5D,650 
lOAOO DATA 60,AC,6A,AA,62,51,A0,60,679 
lOAlO DATA AC,6A,65,7F,51,A£,60,AC,735 
10A20 DATA 6A,AA,62,51,AO,60,AC,65,68A 
10A30 DATA 5A,5A,50,67,50,AC,6A,6A,707 
lOAAO DATA AO.50,60,50,AC,62,A8,AO,630 
10A50 DATA 50,67,50,AC,61,70,40,50,692 
10A60 DATA 5F,70,AC,60,40,40,50,40,651 
10A70 DATA AO,AC,60,AO,AO,50,AO.AO,572 
10A80 DATA AC,60,AO,AO,50,AO,AO,AC,5BA 
10A90 DATA 65,50,57,52,47,AF,6C,67,72A 
10500 DATA 51,75,52,AA,62,AC,65,59,712 
10510 DATA 55,52,A7,A2,AC,65,51,55,647 
10520 DATA 52,AA,A2,AC,65,50,57,53,656 
10530 DATA 7A,A2,AC,60,AO,40,50,40,626 
105AO DATA A0,AC,7F,7F,7F,7F,7F,7F,9O2 
10550 DATA 7C,60,AO,AO,50,AO,AO,AC,632 
10560 DATA 60,AO,AO,50,AO,AO,AC,60,604 
10570 DATA 48,60,50,40,50,AC,60,48,636 
10580 DATA 60,50,40,58,40,60,48,60,668 
10590 DATA 50,A0,5C,AC,60,45,40,50,621 
10600 DATA 7F,7C,AC,60,45,40,50,40,700 ' 
10610 DATA 5C,AC,6O,A2,AO,5O,A0,5C,63O 
10620 DATA AC,60,45,AO,50, AO,AO, AC,589 
10630 DATA 60,68,68,50,AO.5C,AC,61,713 
106A0 DATA 50,54,50,40,48,AC,60,60,6A8 
10650 DATA 48,50,AO,48,AC,60,40,40.588 
10660 DATA 50,A0,A8,AC,6O.40,40,50,596 
10670 DATA A0,A0,AC,67,5D,57,57,5D,667 
10680 DATA AA,AC,6A,55,55,54,55,44,651 
10690 DATA AC,6A,55,57,5A,55,AA,AC,661 
10700 DATA 64,55,54,54.55,AA,AC,67,685 
10710 DATA 5D,7A,57,5D.77,AC,60,A0.7AA 
10720 DATA 40,50,40,40,AC.7F,7F,7F,729 
10730 DATA 7F,7F,7F,7C.60.40,40,50,309 
10740 DATA 40.40,AC,60,40,40,50,40,572 
10750 DATA AO,AC,60,40,40,50,40,40,572 
10760 DATA AC.66,AO.40,50,A0.A0,4C,590 
10770 DATA 69,AA,40,50,58,48,AC,69,658 
10780 DATA AC,40,50,64,50,AC,69,5A,665 
10790 DATA 40,51,42,60,AC,66,AA,58.641 
10800 DATA 51.A1,AO,AC,60.A4,6A,50.630 
10810 DATA 62,60,AC,60,4E,AA,50,5C,684 
10820 DATA 50.AC,60.40.48,50,40,48,604 
10830 DATA AC.6O,AO,5O.5O,AO.A0,AC,6OO 
10840 DATA 60.40,7C.50,40,40,4C,60,66A 
10350 DATA 40,40,50,40.40.AC.6E,7B,645 
10860 DATA 67.57,5D.73.6C,6A.6A,55,803 
10870 DATA 5A,55.AA,6C,6E.7B,67,5A.771 
10880 DATA 5D.73.6C.6E,6A.55,5A.55,7B0 
10890 DATA AA.6C.68.6A.55,57.55.AA.723 
10900 DATA 6C,60,40.40.50,40.40,AC,616 
10910 DATA 7F,7F,7F,7F,7F,7F,7C,60,982 
10920 DATA 40,40,50.40.40.4C,60,40,572 
10930 DATA 40,50,40,40.4C,60,40,40.572 
10940 DATA 50,40,40,4C.67,7F,7E,50,720 
10950 DATA 70,40,40.66,40,42,50,68,668 
10960 DATA 40,40,67,40,42,50,58,40.605 
10970 DATA 40,67.60,42,50,44,40,40,629 


10980 DATA 67,70,42,50,42,60,40,67,702 
10990 DATA 78,42,50,41,70,4C,67,7E.748 
11000 DATA 42.50,43,70,4C,67,7F,62,729 
11010 DATA 50,41,70,40,67,7F,7A,50,765 
11020 DATA 40,40,AC,67,7F,7E,50,40.704 
11030 DATA 40,40,60,40.40,50.40.40.572 
11040 DATA 4C,6A,54,6E,57,4E,6B,6C,756 
11050 DATA 6B,54,68,54.68,7A,6C,6A,819 
11060 DATA 54,6C,57,4C,6B,6C,6A,73,791 
11070 DATA 40,54,68,6A.4C,6A,53,4E.7O9 
11080 DATA 54,6£,6A,4C,60,40,40,50,680 
11090 DATA 40,40,4C,7F,7F,7F,7F,7F,839 
11100'data 7F,7C,7F,7F,7F,60,40,40,856 
11110 DATA 4C,7F,7F,7F,60,40,40,4C.757 
11120 DATA 7F,7F,7F,60,40,40,40,7F,B08 
11130 DATA 7F,7F,60,40,40,AC,7F,7F,308 
11140 DATA 7F,60,40,40,40,7F,7F,7F,808 
11150 DATA 60,40,40,4C,7F,7F,7F,60,777 
11160 DATA 40,40,4C,7F,7C,7F,60,7F,805 
11170 DATA 78,4C,7F,7C,7F,61.42,44,805 
11180 DATA 4C,7F,7F,7F,62,42,42,40,763 
11190 DATA 7F,7F,7F,67,7F,7F,4C,7F,941 
11200 DATA 7F,7F,60,40,40.4C,7F,7F,808 
11210 DATA 7F,60,40,40,4C,7F,7F,7F,808 
11220 DATA 60,40,40,4C,78,62,60,67,730 
11230 DATA 6E,6A,6C,7A,6A,65,64,4A,B27 
11240 DATA 7B,6C,78,6A,6D,65,6A,6A.879 
11250 DATA 6C,7B,6A,69,64,6A,6A,6C,862 
11260 DATA 7B,62,6D.67,6E,6A,6C,7F,B84 
11270 DATA 7F,7F,60,40,40,40,60,40,714 
11280 DATA 40,4F,7F,7F,7C,60,40,40,745 
11290 DATA 50,40.40,40,60,40,40,50,589 
11300 DATA 40,40,40,60,40,40,50,40,572 
11310 DATA 41,40,68,40,40,58.44,41,594 
11320 DATA 40,66,40,40,58,4A,42,40,610 
11330 DATA 61,60,40,54.52,42.40,60,661 
11340 DATA 50.40,54,61,4A,4C,6C,4C,641 
11350 DATA 40,53,41,44.40,60,42,40,582 
11360 DATA 52,40,68,40,60,41,60.50,663 
11370 DATA 40,68,40,60,40.58,50,40.636 
11380 DATA 50,40,60,40,44,50,40,50.608 
11390 DATA 40,60,40,40.50,40,40,40,534 
11400 DATA 60,40,40,50.40,40,40,66,610 
11410 DATA 4F,6F,54,57.68.6C,65.42.740 
11420 DATA 48,54,54,40,60,65.42,4E,669 
11430 DATA 54,55.6A,6C.65,42.48.54.706 
11440 DATA 54,69,60,66,42,4F,57,57,718 
11450 DATA 68,60,60,40,40,50,40,40,644 
11460 DATA 40,7F,7F,7F,7F,7F,7F.70,962 
11470 DATA 60,40,40,50,40,40,40,60,604 
11480 DATA 40,40,50,40,40,40,60,40,572 
11490 DATA 40,50.40,40,40,61,7F,7F,699 
11500 DATA 50,40,40,40,62,40,41,50,591 
11510 DATA 47,40,40,62,40,41,50,46,590 
11520 DATA 60,40,62,40,41.50,50,50,639 
11530 DATA 40.64,40,42,50,60,48,40,630 
11540 DATA 64,40,42,50,62,48,40,64,656 
11550 DATA 40.42.50.60.48,40,68,40,622 
11560 DATA 44,50,50,50,40,60,40,44,620 
11570 DATA 50.48,60,4C,6F,7F,78,50.762 
11580 DATA 47.40.4F,7F,7F,7F,7F,7F.849 
11590 DATA 7F,7F,7F,7F,7F,7F,7F,7F,1016 
11600 DATA 7F,7F,7F.7F.7F,7F,7F,7F.1016 
11610 DATA 7F,7F.7F.7F,7F,7F,7F,7F,1016 
11620 DATA 7F,7F,7F,7F,60,40,40,50,812 
11630 DATA 40,40,48,40,40,40,40,40,520 
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11640 DATA 40,40,40,40,40,40,40,40,512 
11650 DATA 40,40,40,40,40,40,40,40,512 
11660 DATA 40,40,40,40,40,40,40,40,512 
11670 DATA 40,40,40,41,67,4E,77,56,643 
11680 DATA 7B,4D,48,40,40,40,71,70,609 
11690 DATA 40,40,40,41,40,40,40,40,513 
11700 DATA 40,40,40,40,40,40,40,40,512 
11710 DATA 40,40,40,40,40,40,40,40,512 
11720 DATA 40,40,40,41,64,68,62,54,643 
11730 DATA 62,69,48,40,40,41,42.48,606 
11740 DATA 58,47,40,42,60,4C,40,5C,617 
11750 DATA 40,5F,70,40,7F,60.40,40,686 
11760 DATA 40,47,40,40,40,40,40,40,519 
11770 DATA 44,42,68,41,67,40,62,54,664 
11780 DATA 73,49,48,40,40,41,41,4F,597 
11790 DATA 60,48,60,44,60,52,40,62,672 
11800 DATA 40.64,48,41,42,58,40,40,583 
11810 DATA 40,44,40,40,40,42,48,44,530 
11820 DATA 40,42,61,49,64,68,62,54,686 
11830 DATA 62,69,48,40,40,41,40,70,644 
11840 DATA 40,50,50,44,60,52,40,62,632 
11850 DATA 40,54,44,41,42,44,40.40.543 
11860 DATA 40,44.5D.75,5A,7B,6C.4A,737 
11870 DATA 75.62,6A,69,64,6£,72,56,836 
11880 DATA 7A,60,68,40,40,41,40,50,672 
11890 DATA 40,60,48,44,50,60,40,61,637 
11900 DATA 40,44,42,40,72,42,40,40,570 
11910 DATA 40,44,55,57,52,6A,68,4E,674 
11920 DATA 65,41,4B,69,60,40,40,50,65q 
11930 DATA 40,40,48,40,40,42,40,50,538 
11940 DATA 40,60,48,44,50,60,40,61,637 
11950 DATA 40,44,42,40,44,42,40,40,524 
11960 DATA 40,47,5D,71,52,7A,68,48,721 
11970 DATA 65,61,4A,4D,7F,7F,7F,7F.357 
11980 DATA 7F,7F,78.40,40,42,40,50,712 
11990 DATA 41,40,44,44,50,60,41,41,571 
12000 DATA 40,44,44.40,44,42,40,40.526 
12010 DATA 40.40,41,47,40,48,40,46.534 
12020 DATA 40,40,41,61,40,40,40.40.546 
12030 DATA 40,40,48,40,40.42,40.50.538 
12-040 DATA 41,40,44,44,50,60,49,41,57? 
12050 DATA 40.44,48,40.44,41.40.40,529 
12060 DATA 40.40,40.40,40,70,40,40,560 
12070 DATA 40.40,40.41,40,40,40.40,513 
mm DATA 40,40,48,40,40,42,40,48,530 
12090 DATA 61.40.44,44,48,60,51.47,617 
12100 DATA 78.43,78,40,44,41.40.40,632 
12110 DATA 40.40,40,40,40.40,40.40.512 
12120 DATA 40.40.40,41.40,40.40.40,513 
12130 DATA 40.40,48.40,40,42,40.48.537 
12140 DATA 61.40,44,44,4S,60,4F,7C,668 
12150 DATA 64,44,44,40,44,41,40,40,561 
12160 DATA 40,40,40,40,40,45,77.50.600 
12170 DATA 40,40,40,41,7F,7F,7F.7F,765 
12180 DATA 7F,7F,48.40,40.42.40,48,656 
12190 DATA 61,40,44,44,48,60,41.40.594 
12200 DATA 62.44,42,40.44,42,40.40,558 
12210 DATA 40,40,40.40,40,40,55.50,562 
12220 DATA 40,40,40,41,60,40,40,40,545 
12230 DATA 40,41,48,40,40,44,40,50,541 
12240 DATA 40,60,48,44,44,60,42,40,594 
12250 DATA 60,44,42,40,44,42,40.40,556 
12260 DATA 40,40,40,40,40,45,77,50,600 
12270 DATA 40,40,40,41,63,7F.7F,78,737 
12280 DATA 7F,71,48,40,41,70,40,50,70? 
12290 DATA 40,60,48,42,44,60.42,40,592 


12300 DATA 60,44,42,41,68,42,40,40,593 
12310 DATA 40,40,40,40,40,44,55,54,557 
12320 DATA 40,40,40,41,62,40,40,40,547 
12330 DATA 40,51,48,40,42.46.40.50,561 
12340 DATA 40,50,50,62,44,60,42,40,616 
12350 DATA 62,44,42,42,58,42,40,40,500 
12360 DATA 40,40,40,40,40,45,77,50,600 
12370 DATA 40,40,40,41,63,7F,7F,7F,737 
12380 DATA 78,71,48,40,42,49,40,70,703 
12390 DATA 48,48,60,62,42,60,62,40,662 
12400 DATA 52,54,41,52,40,44,40,40,585 
12410 DATA 40,40,40,40,40,40,40,40,512 
12420 DATA 40,40,40,41,60,40,40,40,545 
12430 DATA 40,41,48,40,41,70,78,43,629 


12440 DATA 70,47,40,50,41,40,50,40,624 
12450 DATA 40,48,40,61,73,78,40,40,672 
12460 DATA 40,40,40,40,40,40,40,40,512 
12470 DATA 40,40,40,41,7F,7F,7F,7F,765 
12400 DATA 78,78,48,40,40.40,40,40,646 
12490 DATA 40,40,40,40,40,40,40,40,512 
12500 DATA 40,40,40,40,40,40,40,40,512 
12510 DATA 40,40,40,40,40,40,40,40,512 
12520 DATA 40,40,40,41,40,40,40,40.513 
12530 DATA 40,40,4F,7F,7F,7F,7F,7F,842 
12540 DATA 7F,7F,7F,7F,7F,7F,7F,78,1016 
12550 DATA 7F,7F,7F,7F,7F,7F,7F,7F,1016 
12560 DATA 7F,7F,7F,7F,7F,7F,7F,7F,1016 
12570 DATA 7F,7F,7F,7F,F0,00,00.0F.763A 
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René AUTHELET 


Q ui a dit que l'ORIC était une machine à jouer ? THEORIC, 
à maintes reprises, a prouvé le contraire. Voici une nou¬ 
velle illustration des possibilités de l'ORIC : l'établisse¬ 
ment de bulletins de salaire avec édition des bordereaux. 
ORIC au service des PME ? 



Le logiciel a été développé sur 
ATMOS et nécessiterait quelques 
adaptations, en particulier du fait 
de l'absence des STORE et 
RECALL, pour tourner sur 
ORIC-1. Il gère 40 salaires mais 
pourrait être étendu à plus. 

Les possesseurs de MICRODISC 
ou JASMIN devront également 
adapter à leur matériel les procé¬ 
dures de sauvegarde et de rappel 
des dossiers. 

Le mode d'emploi est simple 
puisqu'un menu fait l'aiguillage 
au début du programme. Il faut 
commencer par composer le dos¬ 


sier (nombre d'employés et les 
données qui s'y reportent) puis le 
sauvegarder. Chaque mois, il suf¬ 
fira de rappeler ce dossier pour 
procéder au calcul et à l'édition 
des fiches de salaire. A titre 
d'exemple, nous avons reproduit 
un bordereau édité par ce logiciel. 

Bien entendu, l'édition sur impri- 
rinante pourrait être remplacée 
(modification des LPRINT par 
PRINT) par une simple sortie sur 
écran. Le programme pourrait 
alors servir à tout un chacun pour 
vérifier son propre salaire. 


10 ICIHWHmHH U I III I IIim ilHH 
12 «EM I 

14 KEIIt I 

U REM LOCITia K COMPIUILITE f 

16 REM POUR LE CM.CUI lES SALAIRES I 

20 RENE AVEC SORTIE SUR lORKREAUI I 

22 RENE E 

24 REM AUTEUR:*. AUTHELET RENE E 

26 RENE E 

26 RENE MTE ! 03/09/83 E 

30 RENE E 

32 RENEHEEEEEHEHEEHEEEEHEHEEEEE 
34 ren: 

36 IINNSS(40l,PS*l40l,ES*l40l,CFI40l,SS(40I.SNt40l 
38 REN: 

40 rLS;PAPER0:IIN(2 

42 REN.— 

<4 EEN NENU 

46 REN. 

48 PRINT(16,03tCHR«l4ICHR«l27l*JNENU'CilRtl4l;PIINl:PRlNT 


30 râlNT* CONPOSITION OU NSSlER-l'lPRINT 

52 POINT* LECTURE DES FICHES.2*:PR1NI 

54 POINT* lONNEES PATE.-3*:PRI*T 

36 PRINT* SAUVESARIE lU tOSSIER—4*:PRINT 

30 PRINT* CHARGERENT Ml lOSSIER—3‘:PRINT 

60 PRINT* MiRlFlCATION K FICHES-6*:PR1NI 

62 FRINT* AUENENTATIONS LEEAUS 1-7*:PRINT 

64 PRINT* SORTIE Ml PROORANK.0*:PR1NI 

66 SETIS 

68 IF1$>*0‘THENENI 
70 IFH»*I*TH£N92 
72 IFI«>*2'THENieO 
74 IFI*»*3*THEN304 
76 IF1I>*4*THEN244 
78 IFI»«*3*THE*272 
00 IF1$»*6*THENI42 
82 IFI»>*7*THEN204 
84 001040 

86 REN. 

88 REN CONPOSITION Ml KSSIU 
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90 REN- 


92 cls:print:print:print‘ eniree des fiches inoiviiueues* 

180 CLS:PfllNT:PRINT:PRlNT'OUEL HO K FICHE VOULEZ-VOUS'dHPUTA 

94 PRINTiPRINIiniINT' ( 0 ) POUR REIOURMER MI KEWJ* 

182 IFA>40IHENI80 

95 PRINI:PRIIII:INPUI'COMIIEN DE NOUS A ENIRER'iNO :CLS:N0<RN«N8 

184 PfilNTlPfilNT'FICHE NO '|A 

98 IFW>0IKEN40 

186 PRINT: PRINT'NON ’iNStlAI 

100 IFONxOIHERONxl 

188 PRINT: PRINT'PRENON ’iPS«IAI 

102 IFN0>0IHEN40 

190 PRINT: PRINT'EIVLOI 'lESSIAI 

104 IFN0>40THEN95 

192 PRINT: PRINT'SALAIRE HORAIRE'ISSIAI 

lOé FGRI'ONIOKO 

194 PRINT: PRINT’SALAIRE NENSUEL'ISNIA) 

108 PR1NT;PRIN1:PRINT:PR1NI'KUHER0 IE REFERENCE',*(*|I|‘)’:PRINT 

196 PR1NT:PRINT;PRINT'UNE autre FICHE lO/NI’ 

110 INPUT'NON'lNSfdKPRINT 

198 SETI»:IFI$»’0’THEN180 

112 INPUT‘PREN0N'|PS$(II:PRINI 

200 601040 

114 INPUT'EKPlOI’iESSIII IPRINI 

202 REN. 

116 INPUr'COEFFICIENl'tCFIII IPRINI 

204 REN AUCNENTATIONS USALES SUR 

118 lKPUr'SM.«IRE HORAIRE'ISSIH 

206 REN L’ENSENILE DU DOSSIER 

120 PRINr:lNPUr'SM.AIRE NENSUEL'ISNIII 

208 REN. 

122 PRlNllPRINriPRlNTlPRlNT'Sl US lOMIEES SONT EKACTES' 

210 cls:print:print:print’u dossier est-il dans l’ordinaieur* 

124 PRINT'APPUYEZ SUR ESPACE’ 

212 PRINT:PR1NT' lO/NI’ 

126 PRINT'SINON APPUYEZ SUR UNE AUTRE TOUCHE* 

214 SETIA 

128 PRINT'POUR REPRENDRE LE NENE NO K FICHE SuSTOP RETOUR AU NENU' 

216 lFIt<>'0'THEN40 

130 SET1$:1F»()' 'THENI*!-! 

218 CLS:PR1NT:PR1NI'ENTREZ le taux de L'AUSNENTATION’ 

132 lFItx*S'IHEN40:NEXT:RN*N0«l 

220 PRINTlPRINT' FORNAT 2S<0.02’ 

134 CLS:NEXTl:eN=NO«l 

222 INP'JTAS 

136 IF9NM0IHEN40 

224 F0RIMT020 

138 60T040 

226 SQxSSdMISSdltASI 

140 REN. 

228 SSdl'dNIISRflO'ZfO.SII/lO'Z 

142 REN NOIIFICATION DE FICHES 

230 N8rSNdlilSNdliA6l 

144 REN. 

232 SNdl<dNT(H8il0'2«0.SII/10‘2 

146 cls;print:print‘ i o i pour retourner au nenu* 

234 NEXT 

148 PRINT;PRINI:PR1NI:1NPUT'NURER0 de FICHE A NOIIFIER'II 

236 CLS:PRINT:PRINT:PR1NI'N0UILIEZ pas de SAUVESARKR’ 

150 IFIX0THEN40 

238 PRINT'.PRINT’U NOUVEAU DOSSIER’lVAlTSOO 

152 IFI>40THENI48 

240 60T040 

154 PRINT:INPUT'N0N'|NS$UI 

242 REN. 

156 PRlNTMNFUT’PRENON'iPStlII 

244 REN SAUVESARDE DU DOSSIER 

158 PRlNTMNPUT’ENPlQI’lEStlII 

246 REN. 

160 PRINT:INPUT'C0EFF1C1ENT*|CF(II 

248 CLS:PRINT:PR INT’ ISAUVESARDEI’ 

162 PRINTMNPUT'SALAIRE HORAIRE’iSSdl 

250 PRINTIPRINT’HAGNETO PRET APPUYEZ SUR UNE TOUCHE SINON ( 0 1’ 

164 PRlNTdNPUT'SALAIRE NENSUEL'ISNIII 

252 SETIA 

166 PRINT:PRINT:PRINT:PRINI'UNE autre FICHE lO/NI 

254 IFI8>’0’TH£N40 

168 6ETI» 

256 STORE NS$,’N0N’ 

170 1FI*>'0'THEN146 

258 STORE PSt.’PRENON’ 

172 60T040 

260 STORE ESt.’ENPLOl’ 

174 REN. 

262 SIORE CF,'COEFFICIENT* 

176 REN CONSULTATION l'UNE FICHE 

264 STORE SS,'SALAIRE-H’ 


CLAVIDACT 


méthode 
de frappe 
bien 


SKI 


Pour savoir taper aussi bien que voire 
secrétaire...éxercices, explications, 
lest de niveaU'fdzerly qweily) ATMOS'^MOS 

DIALOGUE Sion ® 

Creez votre réseau ORIC let ATMOS ou 
par téléphone, radio,etc... jouez ou 
travaillez ensemble. logiciel et notice 

^EPHORM'COLOR reflexe 

l'alco test du programmeur 
a consommer a jeun_ATMOS 

DAMAEŒ 

sauvegarde-gestion des règles. . .ATMOS 



* * NOUVEAUTES *☆*☆☆** 

niT O n> «P I système auteur (î?Ô71 
Ul I. . : U Hu : toute matière 
Réaliser facilement vos questionnaires 
scolaires ou extra-scolaires-édition sur 
imp. .copies, modif.. etc_ATMOS-MO 5 

CITE DE CRISTALi^r 

Un bon archéologue ne doit perdre ni le 
fil de ses idées ni celui de ses recherches 
dans les 50000 ruelles_ATMOS-MO5 

MEFIES TDI DE MEPHISTD 

Rachelez votre âme. imprudemment ven^e 
_ATMOS-MO 5 


au diable. 


rt 9 ltmtnl è la cemmantfc 
Port 15 Fri 


lJCLAVIDACT nOIAUDOUE 
lom___Pronom .. . 


■ 8 0 r«i iss Ftarniers 
□ElEPHORM 


07500 CUIINEOANO - t,i 75404844 


□ DAMAE 
ASr.Ist . _ 


□OIT..? D AC ( ÜCITE CRITAL 


□MEPHISTO SUC O 
MS5 O 


X- > 
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2iA STOSE SN,'SiU.«lllE-ll’ 

392 SA>Sli0.0S2' SEC SOC VIEILLESSE 

2iB eOtOBO 

394 SV«(IKTISM10‘2«0.S1I/10*2 

2?t REH. 

394 RX*SM0.023’ RETRAITE COHPl. 

222 REN CHARSEHENT KJ MSSIER 

398 RC>(IHTIRXflO‘2«0.S)l/10*2 

224 REH. 

400 BX<SBI0.0028' ASS KCES 

224 CISIPRIHT’.PIIHÎ* ICHAR6EHEHII* 

402 K>IIHT(1»I0*2«0.3J1/10‘2 

22» PRIHIJPRIHT'HABHEIO PRET APPUYEZ SUR UHE TOUCHE SIHOH ( 0 )• 

404 CX<=SBI0.02I2’ COT CHOMASE 

280 tETIl 

404 C0*IIHIIC»10‘2«0.3JJ/10‘2 

28? IFI***0‘IHEIHO 

408 TX>SE«SV*RC*K«CO»HU 

TOIU RETEHUE 

284 RECUL KSt.'HOH' 

410 TR>(IKT(TXil0‘2«0.311/10*2 

28» RECUL PS»,'PR£HOH' 

412 HX<SB-TR’ HET IHPOSABLE 

2B3 RECAIL ESB.'EHPLOI' 

414 HI>(IMTIRXI10*2<0.3JJ/10*2 

220 RECUL CF,‘CO£ffIClEHT* 

414 XP<HI-AR-AC ‘ ICI A PAYER 

202 RECUL SS,'SUAIRE-H' 

418 IIP<IIHIIXPil0*2«0.8ll/10*2 

294 RECUL SH.’SUAIRE-H’ 

420 AP<llHI(HP<10‘Ot0.3ll/10*0' ARROMBl PAYU 

204 801040 

422 XA>HP-AP * HOUVa ARtOHll 

298 REH. 

424 HA>IIHTIXAII0*2«0.3I1/10*2 

800 REH BEHAME K lOHHEES 

424 FA*SSIllil.23' TAUX A 231 

302 REH POUR EIAILII U PAYE 

428 FB«I1HTIFAIIO*2«0.3II/10*2 

304 REH. 

430 FC>SSI1II1.S0’ TAUX A 301 

304 CLS:PRIHT:PRINT*I0IME2 us baies* 

432 F1>IIHIIFCIIO*2*0.3JI/1»*2 

308 PR1HI:PR1HI:PRIII' < O J pour REIOURHER au HEKi* 

434 S0I0438 


310 PRIHTJIHPUT* PAYE MJ ’IBAB 

434 REH. 


312 1FIA8*'0'THEH40 

438 REH SORTIE SUR IHPRIHAHTE 

314 PRIHIJJHPUT* AU *1118 

440 REH AIAPIAIU FACILEHEHT 

3J4 PRJHr;lHPUr* REHISE le *|RE« 

442 REH A B’AUTIES IHPIIHAHTES 

318 cls:priht:priht:ihput*iomer le HUHERO BE REFEREHCE '|1:PR1HI:PR1HT 

320 CLS:PRlHT;PRlHT:PRIRr 

444 REH. 

444 LPR1IICHR8(I8FI 


322 PRIHT'HO lE REF ’IUPRIHT 

448 LPRIHI’HUmO-IEF 

*11 

324 PRIKT'HOH ‘iHStlIIJPRlHT 

480 LPRIHT'HOH 

*|RS«dl 

324 PRIHT'PREHOH *|PSI(ll:PRlHt 

482 LPRIHT'PREHBH 

*|PS8dJ 

328 IFSS(II‘0THEH332 

434 LPtlHT'EHPLOI 

*lES«dl 

330 PRINIMHPUI'HOHBRE B'HEURES HORRUES'IHM 

332 PR1HT:IHFUT*H0HIRE I'MEURES 281 ‘IHV 

434 LPRIHT'COEFFICIEHT 

*lCFdl 

4M Lrilli 


334 PRIHIMHPUT'KOHBRE B’HEURES 801 '|HC 

440 LPRIHI'PAYE MJ 

*|IA* 

334 PRlHTMNPUr'AHClEHHEIE 'lAH 

442 LPRIRT* AU 

’IBB» 

338 PRIHIIJHPUI'PRIHE 1 ‘iPl 

444 LPRIHI'REHISE U 

*|RE8 

340 PRIHCIHPUT'PRIHE 2 *IP2 

342 PRIHI-.IHPUI'PRIHE 3 ‘|P3 

444 LPRIHT*. 

448 IFSRI1JOOTNEI482 


344 PRIHTJIHPUT'ACOHPIES ’JAC 

420 LPRIHT'HEURES HORHUiS 1 HOHIRE : 

344 PRIHTJIHPUI’REPRISE SEC. SOC. ‘JRS 

422 LPRlNTSPCIlO-LEHISTROlHIIIItM 

348 PRIHTJIHPUI'HUTUELU ‘IHU 

474 LPRIHT'SAUIRE BE BASE 1 TAUX 1 ‘I 

380 PRIHTJIHPUT'ARROHBI HOIS PRECEIEHI ‘|AR 

424 LPRIHTSPCIIO-LEHISTR*(SSIlJllliSSIII 

382 PRIHIJPRIHT’ APPUYEZ SUR UHE TOUCHE POUR L’IHPRIHAITE* 

428 LPRINT’OU SEUIL 

t HOHTAHI : *1 

384 PR1HI;PR1HT* ( 0 ) POUR RETOUR AU HEHU'lSEIIB 

480 LPRIHTSPCI18-LEH(SIR«IHHJII|HH:EOT0490 

384 IFI$*'0'THEH40 

482 LPRIRT* 

1 : * 

388 REH. 

484 LPR1HT*SALA1RE HEHSUEL 1 : *| 

340 REH CEHTRE BE CUCULS 

484 LPRIRTSrCIlB-UHISTRtISIIIJJIIlSHIll 

342 REH. 

488 LPRIHT* 

1 : * 

344 1FSS(II*0THEH320 

490 LPRIRT*.— 

_• 

344 HfKHTSSdJ 

492 LPRIHT* HEURES 

1 HOHIRE : *1 

348 HH<(1RI(HXE10*2«0.8JJ/I0‘2:t010324 

494 LPRIRTSPCdO-URISTRBIHVIIJiHV 

320 HmSMIll:SK*SH(IlZ149 

494 LPRIHT* A 

1 TAUX : *1 

322 SSIIlMINT(SI(fl0‘240.31J/l0*2 

498 LPRIHTSPCdO-UR(STR«IFBIII|FI 

324 VX<HVt(SS(IJI1.23J' HEURES 281 

800 LPRIHT* 281 

1 WHTAHT : *1 

324 VH>(IIT(VXflD*2«0.SJlZ10‘2 

802 LPRIRISPCdO-URISTRSIVHIlIlVH 

328 SI*HH4VH«CH’ SOUS lOIU 

804 LPRIHT. 

... .• 

380 HX*HCilSS(IJil.80J' HEURES 801 

804 LPRIRT* HEURES 

1 ROHBRE : *1 

382 CH>IIII(H»10‘2«0.8JJ/10‘2 

808 LPRIHISPCdO-LEHJSTRBIHCIIMHC 

384 SX>HHtVH<CH«AH<Pl<P2»P3-RS' SUAIRE BRUI 

510 LPRIRT* A 

1 TAUX : *1 

384 SMIRT(SXilO‘2*0.3Jl/10*2 

512 LPRlRISPCdO-LEHISIROIFBJlIlFI 

388 SY<=SBt0.084’ SEC SOC 

514 LPRIHT* 501 

1 ROHTAHT : *1 

390 SE«(I8T(SYII0'2<0.811/10*2 

514 LPRJHISPCdO-LEHISIRlICHJIlICH 
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JAQUETTES 
POUR 
K7 

S tandardisez la présentation des cassettes de votre logi¬ 
thèque grâce à ce programme d'impression sur GP 50. 



Thierry BRI ER 


Ce programme permet de créer 
des jaquettes pour cassettes sur 
imprimante SEIKOSHA GP-50. Il 
a été conçu sur ATMOS, mais 
devrait tourner sans problème sur 
ORIC-1 en remplaçant les 
PRINT fo> par des PLOT. 

Vous pourrez remarquer que, lors 
de l'impression du sommaire 
(c'est-à-dire lorsque l'imprimante 
écrit verticalement), les caractè¬ 
res imprimés sont ceux de l'ORIC 
et non ceux de la GP-50. On peut 
ainsi charger un jeu de caractè¬ 
res et le voir apparaître sur papier. 
Cela est dû au sous-programme 
"Codage" où l'ORIC divise les 
titres caractère par caractère. 
Pour chaque caractère, il place, 
dans des variables indicées, les 
huit valeurs des adresses que 
constituent ces caractères. 

Ensuite, l'imprimante imprime 
chacune de ces valeurs sous 
forme binaire (voir le (7), page 10 
du manuel de la GP-50). 

COMMENTAIRES 
SUR LE PROGRAMME 

Lignes 70 à 220 
Présentation. 

Lignes 350 à 380 
Création de la jaquette. 

Lignes 392 à 395 
Entrée du numéro. 

Lignes 400 à 460 
Entrée du titre de la face A. 
Lignes 470 à 530 
Entrée du titre de la face B. 


Lignes 550 à 650 
Modifications des éléments 
entrés. 

Lignes 750 à 905 
Impression 
Lignes 910 à 970 
Les codes graphiques de la 
GP-50 sont affectés à des varia¬ 
bles indicées. 

Lignes 1000 à 5040 
Impression de la jaquette. 
Lignes 10000 à 10090 
Centre les titres pour l'impression 
du sommaire. 


Lignes 11000 à 16010 
Impression du sommaire. 

Lignes 20000 à 24270 
Sous-programme d'aides pour 
l'impression. 

COMPATIBILITE ORIC-1 

Pour ORIC-1, il faudrait rempla¬ 
cer les PRINT ^ par des PLOT 
ainsi que les lignes 1750 et 1950 
par : 

1750 GOSUB 21200 
1950 LPRINT"# VI.0 


JACQUEHES POUR K7 
SUR IMPRIMANTE 
GP-50A 

(C) 3-1985 
THIERRY BRIER 
POUR ORIC ATMOS 


20 REM ♦♦♦♦♦««♦♦«♦*♦♦♦♦♦♦♦♦♦* 

25 REM * 

30 REM ♦ 

35 REM * 

40 REM ♦ 

45 REM * 

50 REM * 

55 REM ♦ 

57 REM » 

60 REM ♦ 

65 REM ♦««♦»«♦♦«♦««*♦♦*#♦# 

70 FORI=1T020 
75 READAD 
80 P0KEI+48019,AD:NEXTI 

85 DATA96.32,49,57,56,53,32,84,104,105,101,114,114,121,32.66,82,73,69,82 
90 P0KE48000.2 

100 DIMCl$(22),C2i(22),SlS(22>,S2$(22l,OU(22,7),02X(22,7) 

105 DIME1»I6),E2$(6),A/;(6,7),BX(6,7),PR$(10),P7.<10,7) 

107 DIHD$(2),DX(2,7),2ï(7),Ti(2>,Ta(2,7) 

110 PRINTCHR»n7):CLS;PAPER0:INK3;E*=CHR$(27) 

120 PRINT32,3;E»‘T*E*'6'E$*J JACOUETTES POUR CASSETTES 'E^'P* 

130 PRINTa2,4;E$*T'E$‘6*E$'J JACOUETTES POUR CASSETTES ’EfR* 
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Pierre NAULIN 


L es possesseurs de JAMSIN ont de la chance... que de 
logiciels pour eux I Celui-ci est un petit utilitaire qui a 
le mérite d'être court, permettant l'affichage du cata¬ 
logue disquette et la sélection directe du fichier à charger. 


Pour cela, l'auteur a utilisé une 
partie de programme décrit dans 
"Le T-DOS et ses fichiers”, per¬ 
mettant la lecture des secteurs 
occupés par le catalogue. Celui- 
ci apparaît à l'écran avec le pre¬ 
mier titre clignotant. Il suffit de se 
déplacer, sur la liste du catalo¬ 
gue, au moyen des touches 1 et 
1 puis de valider le fichier choisi 
par RETURN. Après confirmation. 


celui-ci sera chargé en mémoire. 
Ce petit programme, écrit en 
Basic, intègre une routine en lan¬ 
gage machine rangée dans des 
DATA. Il pourra avantageuse¬ 
ment être placé sur disquette au 
moyen de la commande START 
du TDOS, ce qui autorisera son 
exécution automatique lors du 
BOOTING. 


1 REM 

2 REM ♦ CATALOGUE JASMIN 2 ♦ 

3 REM ♦ NA'JLÎN Pierre 1/1I,'8Î * 

4 REM #*»*«*»*«*f**»*»*»«***+f** 

5 ’ 

6 IFDEEK ^ ItFFF C )=IIF42D7:-€NIî0f\E« 11. «CEE 
DELSE[K'KE#1B,*CCBÛ 

7 E$=CHR*( 27) :H$==CHR$( U ) : Pi)KE61S. 2 

8 a.S:PRINTOIRt(I'0):PCiKEIt20C.255 

9 PAPER0::nK2 

10 PR!NTCHRI<4)EÎ’J’SPC(1C)E«’A** CAT 
ALCK5UE ♦♦•CHR$(4) 

11 PRINT:PRlNT:GC3üF.l00CC!:CALLItBSra 
15 D1MA»(40):I=1 

20 FORN=I50C7TOII53033TEP#12 
30 IFN=«5l03THE\N=t5lC7 
40 IFN=#52Ü3THEM''i=t5'JC7 
50 G('Sl.B2î00 

60 1FPEEK(N-3'=#FPTHENÎ1C 
70 F0R!1=0T0H 

80 At(l)=AîiIHCIiR«iFcEh - 
90 NE<TM 
100 1 = 1+1 
lie NEXTN 
30C P0RN=IT018 

310 PRINT* ’A*(MSPC(9'At<N+lS 
320 NEff 

330 PRINTiPhlN'" *: 

340 PRl'JTEï’EAvsrtî'El'CKEV'El'EArrie 


re:'E$'C*’£*'EChoi>:'E$*CR£:uRN- 
1000 REM CHOIX PROGRAMME 
1010 FOR N=1 ÎO I 

1020 1FN<=18THENPL0T1,N+5,4 :PLCT2.N+3 
, iC : PLOT 16. N+3.2 : PLOT 17, .N+3,8 

1021 IFN>18THENPLOT16.N-15.4;PlOTi7,n 
-15.#C 

1D30 GETAi ’ Clavier 

1035 1FN<=18THENPL0T1.N+3.2:PL0T2.N+3 
.8:GOTO1040 

1036 PL0Tl6,N-15.2:?L0T17.N-15,8 
1040 IFAt=CHR»(I3)"HENl500 

1050 IFA$=h$ANDN TTHEN.N=N-1 :GÛT01020 
IDôO NET' 

1070 GOTOlOOO 

1500 REM CHARGEMENT PRGM CHOISI 
1520 IFRlGHTS(At(N).3)=’SYS*THENlC20 
1530 E$=**:F0 Rl=1Ti)LEN(A$(N)) 

1540 IFMID$(A$(N).L.1)<>* •THEnBt=B«+ 
MIDi'AtlNl.L.l) 

1550 ^CXT L 

1560 PRÎNT' ’Eï’EVotre choii: :'Ei‘ 

D’EfL'Bt 

1565 PRINT* ‘Ei'EAr.nulatior (A) *;: 

GETAi 

1570 IFAt=*A*THEN2000 
1580 CLSr'Bi 

2000 PRINT:PRINTHi;Hi;SPC<36);SPC(36) 
jHiiHtiGOTOlOéC 


QUELQUES PRECISIONS 
SUR LE PROGRAMME 

Ligne 10 

Chargement de la rautine et char¬ 
gement du buffer en # 5000 avec 
le catalogue. 

Lignes 15 à 340 

Lecture du buffer et création d'un 

tableau A$ contenant tous les 

titres. 

Lignes 1000 à 1070 
Choix d'un titre. 

Lignes 1500 à 1680 
Vérification titre et chargement. 
Lignes 10000 à 10180 
Routine de transfert. 


2100 IFPEEK(N)=iFFANDPEEK(N+l)=#FFAND 
PEEK(N+2)=#FFTHEN300 
2110 RETURN 

10000 REM ROUTINE DE TRANSFERT 
lOOlO A=*B800:I=0:READB$ 

10020 REPEAT 

10030 Bt=’#*+B$:B=VAL(B$) 

10040 P0KEA+I,B 
10050 1=1+1iREADBt 
10060 UNTILEi='Z* 

10070 RETURN 

10100 DATAD8,78,AR,7F,8D,OE,03,A9,01, 
8D.FA.03,8D,07,C0,A9,14,8D,09,C0,AR,C2 
10110 DATA8D.0A,C0.A9,00,80,08,C0,85. 
50,85.52,A9.50,85,53.85,55,A9,12,85,54 
10120 DATAAR,4F,85,51,E6,51,20,4E,C2, 
AO,00,B9,00,FE,91,50,C8,DO,F8,AO,02 
10130 DATAB1,50,FO,OE,30,OC,8D,OR,CO, 
C8,B1,50,8D,OA,CO,4C,30,B8,E6,51,A0.06 
10140 DATAC8,B1,52,D1,54,F0,F9,90,11, 
A0,04,B1,52,48,B1,54,91,52,68,91,54 
10150 DATAC8,C0,16,D0,F1,A5,54,18,69, 
12,B5,54,C9,FC,D0,D9,A9,00,85,54,E6,55 
10160 DATAA5,55,C5,51,90,CD,A5,53,85, 
55,A5.52,18,69,12,85,52,85,54,C9,FC 
10170 DATADO,DB,A9,00,85,52,A9,12,85, 
54,E6,53,A5,53,85,55,C5,51,90,AA 
10180 DATAA9,00,8D,FA,03,A9,CO,8D,OE, 
03,58,60,ZB 
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VISMO FAIT CONFIANCE A EUREKA 

DislNSiMBLË^^PRËT^^RÂNCHiR^ 


Ensemble n° 1 monochrome comprenant 
■ ORIC ATMOS unité centrale 

• Magnétophone à cassettes 

• Moniteur Monochrome 12" HR 

L'ensemble ;. 



Ensemble n° 3 monochrome comprenant 
ORIC ATMOS unité centrale 
Moniteur monochrome 12" HR 
MICRODISC ORIC Complet 
Disquette master SEDORIC 


Ensemble n° 2 couleurs comprenant 

• ORIC ATMOS unité centrale 
Magnétophone à cassettes 

• Moniteur couleurs spécial OR 14 

L’ensemble :. 



Ensemble n° 4 couleurs comprenant 
ORIC ATMOS unité centrale 
Moniteur couleurs spécial OR 14 
MICRODISC ORIC complet 

I Disquette master SEDORIC 

! Lecteur 3" ORIC MICRODISC 
avec DOS SEDORIC et controleur 




l 


2^90 


I Périphériques et Accessoires ! L Moniteurs 


Moniteur couleurs sptcial 0R14 
Moniteur monoctironw vert Hfl 12 '• 
Cable pour moniteur monochrome 
MoOulaleur Noir i Blanc UHF 
Modulaieui couleurs UHF 
Magnéiophone a cassettes 


2750 F 
ttSOF 
90F 
295 F 
495 F 
350F 


Imprimante MCP 40 plotter 4 couleurs 
Caue pour impnmante palaliete 
Rnjleau de papier de rechange pour impr 
Jeu de stylos de rechange 
intertace pour loystn* programmaNe 
Joystick type 'Ouckstioi 1 " 


990F 
150 F 
18 F 
40F 
350F 
95F 


MCI4 : 2750 F. 
ORÏ4 : 2750 F. 
HR14 : 3600 F. 


Kit ORIC 1 —»ATMOS : disponible ! 


Ce Kit permet aux possesseurs d'ORIC 1 de transformer leur 

ordinateur partiellement (clavier seulement) ou totalement 
(clavier +• ROM) en ATMOS. La transformation ne demande 

Un Le kit comprend : 

Un boîtier ATMOS complet avec clavier 
mécanique, une ROM l.I ATMOS, un 
c onnecteur de clavier, un manuel ATMOS Kf L*i • 
et un emballage d’origine complet. 


h 



Alimentation ORIC . 150 

SEDORIC ? génial ! 490.0U FRS 


J 


Compatibilité directe ; 

MC14 : APPLE II avec carte RVB. APPLE 2C. ATARI Pal Com¬ 
modore 64 et Vie 20, DRAGON, EXCELVISION. HECTOR 
LASER 3000. SPECTRUM. THOMSON T07 et MOS. MSX et tous 
les ordinateurs disposant d'une sortie sur prise P£RlTFt 

Si H PC «' compote SINCLAIR 

PERITEl”^'^'"^'*^'^* résolution possédant une sortie sur prise 

OR14 : ORIC 1 ET ORIC ATMOS 


Interface 

Entrée 

Sortie 

Prix 

P6010 

Peritel 

UHF Couleurs 

495 F. 

P6015 

Pcritel 

Vidéo Sccam 

UHF Noir et Blanc 
UHF Couleurs 

295 F. 

P6020 

Vidéo PAL 

Peritel 

495 F. 

P6030 1 

Vidéo PAL 

Vidéo Secam 

790 F. 



150 F (cassette) et 200 F (disquette) 

i 


Nouveau lecteur de disquette 3' 

double têtes, double faces 

500 K'octets 

directement adressables 

sans retourner la disquette 

LA PUISSANCE NOUVELLE 
POUR ORIC 1 ET ATMOS 

2690.00 Frs 


JASMIN EASYTEXT 

590 F 

JASMIN MULTI-FICH 

590 F 

ASSEMBLEUR 

490 F 

MATHEGRAPH 3 D 

390 F 

JASMIN-CALC 

590 F 

ORIGRAPH 

350 F 

LE REBELLE 

219 F 

LES CONQUERANTS 

219 F 

logo-graph 

390 F 


Ouvert de : 
14 h 30 à 20 h 
du mardi au vendredi 
et de 10 h à 20 h 
le samedi 


SFRVEZ-VOUS DU BON DE COMMANDE VISMO 
DANS CETTE REVUE 


La politique ORIC : prix, qualité, services 1 





























































PETITES ANNONCES 


La plaça résarvéa aux patitaa annonças aat 
llmltéa. En conaéquanca, caHaa-ci passant 
dans Isur ordra d'arrivéa. Par contra, las pstl- 
tas annonças farfsluss sont systématlqus- 
msnt rsjstéas... Ds m4nio, comma II ast pau 
probabla qu'il axista daa "généraux dona- 
taurs" dp matérials ou da logiclals, las psti- 
tss annonças faisant appal à cas pMIantro- 
pat na saront Inséréas qua si la plaça llbra 
la parmat. 

Saront rafuséaa toutaa laa anrtoncas vlaant 
i vsrtdra ou échangar daa Hstas ou copias ds 
logldsls non garantis "d'origirta", ainsi qua 
touta annonça Incitant su pirataga. 

En conséqusncs. réfléchisssz bisn avant 
d'anvoyar vos taxtas. 

Las patitss annortpas doivsnt Impérativsmsnt 
nous parvsnir sur la grills Idécoupés ou pho- 
tocoi^éa). la tsxts étant rédigé à raison d'un 
carsctérs par casa. 

Enfin, touta annonça non accompagnés ds 
timbras ns sara pas insérés. 


Vends imprimante OKI 80 Microline 80 colonnes 
Ijanv. 851 + logiciels Vortex, Polyfichier : 1600 F. 
F. DURAND, tél.: 22.75.15.73. 

Vends ORIC ATMOS TBE + magnéto K7 + livres 
+ logiciels, le tout : 2000 F ou vente des K7 sépa¬ 
rément. Tél.: 63.59.56.12 ou écrire é M. REY, 7 
rue Raymond GACHES, 81100 CHARTRES. 

Vends Jasmin boîtier métal double + nbx logiciels : 
2000 F. Tél.: 99.34.13.03. 

400 prgms Jasmin ou Sédoric cherchent échange. 
R. ALBOIN, 137 ch. de la Costiére, Bat. 3. 06000 
NICE, tél.: 93.44.40.65. 

Vends programme d'accentuation française pour 
écran et toutes imprimantes du logiciel AUTHOR : 
80 F comprenant cassette, notice, lettres adhési- 
ves. Notice saule contre 2 timbres é 2,20 F. J.P. 
SUAU, 13 square Protis, 13002 MARSEILLE. 


Recherche lecteur + disquette d'occasion Jasmin. 
Tél.: 47.80.55.83. 

Vends ATMOS + moniteur coul. -f magnéto -i- 
interface prog., joystick > 9 K7 : 3000 F é déb. 
93230 ROMAINVILLE, tél.: 48.44.11.50. 

Vends lect. disq. ORIC'ATMOS -f Randos -f bibl. 
Oric : 2000 F discutable. Ecrire é P. PHILIPPI. Cours 
F.G., BP ^09, 18015 BOURGES 

Vends codeurs SECAM ORIC ATMOS entrée péri, 
sortie sur ani. télé. : 350 F, état rteuf. M. BAR- 
RAULT, Hameau ds Rac. 26780 MALATAVERNE. 

Poss. ATMOS DTL 2000-r- chercha contacts 
région Mdncelle ou autre pour éch. prog. Tél.: 
43.35.84.16 après 23 h. 

Vends ou échange logiciels ORIC/ATMOS (Genius, 
Delta, Anubis. Ile Maudite. Macadam Bumperl. E. 
TANNEVAT, 80 rue Boufard. LA TREMBLADE. 

Achète ORIC-1 même si la ROM est HS et si la cla¬ 
vier est défectueux. La carte mère doit être en bon 
état. Prix maxi 200 F. Tél.: 54.70.77.22. 

Recherche les n° 1. 2, 4 de THEORIC (achat ou 
emprunt). Tél.: 39.78.06.92. 

Vends ATMOS tbe complet -•- 60 logiciels -f livras 
-I- cordon K 7 : 550 F. Interface tous jeux : 200 F. 
Tél.: Il) 48.78.94.42 Pascal JANCOURT. 


vends ROM ORIC-1 ou ATMOS : 140 F. Synthéti¬ 
seur vocal : 300 F. Interface série avec ± 12 V : 
300 F. Jél.: (Il 34.87.12.79 (le soir). 

Possesseur d'ORIC-1 + Jamsin cherche correspon- 
dantlel pour échange de logiciels sur disquettes. 
Oimitfi SINGER, tél.: 55.33.33.31. 

Vends disquettes ORIC et Jasmin : 40 F (D7 vier¬ 
ges) 10 et 45 F l'une. Echange programmes 
ATMOS -f 100. Tél.: 39.58.53.28 (11. 

Echange programmes ( + de 901 contre imprimante 
GP 50A ou contre un Amplibus. Francis LAFLEUR, 
20 rue Athiénot, 51100 REIMS. 


Vends APPLE 2E -f 80 col -f 64 k -f 2 drives -t- 
super série + CP/M80 -i- moniteur APPLE -f logi- 
ciels + doc.; 12 000 F. Tél.: (1) 34.87.12.79 (le 
soir). 


Vends ATMOS 19/851 -f lecteur K7 spécial -r- 
modulateur N/B -y TV Philips -s 40 K 7 de jeu -♦• 
nbx livres + câbles : 1800 F é débattre. Frad au 
27.85.46.26. 

Pos. d'ORIC-1 échange programme sur disquette 
JASMIN. Dimitri SINGER, tél.: 55.33.33.31. 

Cherche ORIC ATMOS + prise Périiel -f cordon K7 
-•- logiciels région toulousaine obligatoire. Tél.: 
61.27.79.97 la soj^ après 18 h. 

Sors listings, lettres, dessins de votre ORIC sur 
imprimante. S'adresser à B. BOUCHAUD. 24 rue 
de Vouneuü. 86000 POITIERS. 

Vends 7 programmes pour ORIC/ATMOS (50 F l'un 
ou 300 F Iss 7). Appeler Eric au 79.32.53.78 entre 
18 et 20 h. 

Vends ORIC ATMOS -•- interrupteur -t- jeux -f 
magnétophone + cordons -t- prisa Peritel : 18(X) F. 
Tél.: 64.32.10.44. M. GENERMONT, 1 rue de la 
Gare. 77130. 

Cause double emploi, vends imprimante MCP 40, 
tbe : 700 F. Programmes utilitaires : fichier compt. 
banq., etc. Tél.: 27.45.26.21 après 20 h. Ph. 
LEMAIRE. 

Desperatly seeking Susan ou quelqu'un d'autre 
pour acheter mon synthé vocal OQIC (livré avec 
pgm d'exploitation). Eric VIEL au 99.83.29.76. 

Achète interface ou plan permettant traiter signaux 
Canal * (pour ORIC ATMOS). P. NAGOT, 54115 
FAVIERES, tél.: 83.25.12.05. 

Vends imprimante SEIKOSHA GP 100A : 1500 F. 
Tél.: 99.34.13.03. 

ATMOS + Loritel cherche contacts pour échange 
progs et idées. Patrick DESCAMPS, 32 rue 
Mathieu. 93400 ST. OUEN. tél ; 42 62 40.09 


ÀNNONCËZ-VOÜsVi 

les petites annonces et les messages ! 



K Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 

I- SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 
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' V. 


poLf 


desjyc^ 


loU 




La ricsption des satellites météo 
Loïc Kuhlmann 
Photos, schémas, montages 
Comment réaliser une station 

MEGAHERTZ broché n° 3 
(de 14 à 13) 


Catalogue Janvier 86 


COLLECTION POCHE 


145 F 


70 F 


Jouu avac l« MOS 


liNFORMATIQUE 


E. DUTERTRE 




Colisction pocha 

45 F 

Communiquez avex ZX81 




E. DUTERTRE et D. BONOMO 


Cominuniquaz avw AMSTRAD 


Programmes et interfaces 


0. BONOMO St E. DUTERTRE 

90 F 

2* édition 

90 F, 

Miaux programmar sur AMSTRAD 


Programmes et Interfaces 

145 F 

M. ARCHAMBAULT 

85 F 

Mystères du Laser 




Denis BOURQUIN 




Connaître à fond sa machine 

Mystères d'Alice ou la oratiaue du 

148 F 

6803 


TECHNIQUE 


Propagation des ondes, tome 1 

Serge CANIVENC, F8SH 

Un univers à découvrir 165 F 

Propagation des ondes, tome 2 

Serge CANIVENC, F8SM 

Cet ouvrage encore plus important 

traite des tous les modes de 

propagation en UHF 253 F 

Technique da la BLU - 2* édition 

G. RICAUD, F6CER 

Approche pratique de la BLU 95 F 

Concevoir un émetteur expérimental 
P. L061ISCI 

Concevoir soi-même son émetteur I 69 F 

Synthétiseurs da fréquence 
M. LEVREL 

Se familiariser avec les 

nouvelles techniques 125 F 

Interférences radio - des solutions 
F. MELLET et K. PIERRAT 
Des solutions à vos problèmes 
de brouillage 
Télévisions du monde 
P. GODOU 

Un catalogue de mires 
et une longue expérience 
mis à votre disposition par 
l'auteur 

Le radioamateur et la carte QSL 
Préfixes et QSL-managers et 
bureaux dans le monde 
72 pages 

QSO an radiotéléphonie 
français anglais 
L. SIGRAND 

Un aide-mémoire pour des 
QSO plus faciles 
Cours de lecture au son 
Les cassettes avec livret 195 F 


A. BONNEAUD 

Une des meilleures critiques de la presse 151 F 

Mieux programmer sur ATMOS 
M. ARCHAMBAULT 

Tout un programme 110 F 

Interfaces pour ORIC-1 et ATMOS 
M. LEVREL 

Rendre son OR IC encore plus 

performant 59 F 

Apprenez l'électronique sur ORIC ATMOS 
P. BEAUFILS 

Mieux voir les phénomènes électroniques 110 F 

Programmes pour ORIC et ATMOS 


E. JACOB et J. PORTELLI 
Plus loin avec le X07 
Michel GAUTIER 
Un titre pour un programme ! 


50 F 


85 F 


Jouez avec Hector 

E, DUTERTRE 48 F 

Jouez avec Aquarius 
L. GENTY 45 F 

Naviguez sur ORIC et ATMOS 
E. JACOB et J. PORTELLI 45 F 

Extensions du ZX81 

E. DUTERTRE 48 F 

Jouez avec AMSTRAD 

KERLQCM 48 F 

MEGAHERTZ Hors Série 

Informatique 30 F 


'DETENDEZ-VOUS 

Iavec un livre 

3 p'tits moussas et puis s'en vont 
Tout en couleur 139 F 

Expédition Pfile Nord magnétique 
En couleur 50 F 

Transat Terra Lune 

Préface de 0. BAUDRY 20 F 

La Guerre des Ondes 20 F 

La Baule Dakar 

Histoire et caractéristiques 

des bateaux 56 F 

Bande dessinée Jacques CARTIER 30 F 

Prix réel ; 315 F 

OFFRE EXCEPTIONNELLE 
POUR LIRE OU OFFRIR 
SOIT 6 LIVRES POUR LE 
PRIX DE DEUX : 189 F 


35 F 


110 F 


15 F 


25 F 



...en cassefies 


Réédition des programmes du livre 

Communiquez avec votre ZX81 150 F 


Cassette programmes Communiquez avec AMSTRAD 190 F 
Disquette programmes Communiquez avec AMSTRAD 250 F 

Cassette programmes Communiquez avec ORIC et ATMOS 190 F 


Adrassez vos commandes à ; 
SORACOIM, La Hala da Pan, 15170 BRUZ 

(Règlement comptant à la commande + port 10 %j. 































Ventes Informations Services Micro-Ordinateurs 



84, Boulevard Beaumarchais - 75011 PARIS 

métro Bastille ou Chemin Vert 

De 10 H. à 20 H. sauf Dimanche et Lundi 


TEL. : 16 (1) 43.38.60.00 

LA DEVOLUTION INFORMATIQUE A LA BASTILLE 




LA BETE A COMMUNIQUER 

(100 % compatible ORIC 1 et ATMOS) 


/ 


Cartouche 

ROM 

RAM 


Lecteur 

Disk 


Imprimte 

Serie-parallèle 


■? 


S 


♦ ♦ 


f 




EN DEMONSTRATION 






i 


VISMO 


i 

i 


BORNE DE COMMUNICATION (7 logiciels intégrés) 


Dialogue entre deux Minitels 
Serveur VIDEOTEXT 
Créations pages VIDEOTEXT 
Courrier Electronique 


- Vidéo Répondeur 

-Transmissions entre deux ordinateurs 

- Emulation Minitel 


■ prix indicatif au 31/12/85 livré avec lecteur de Disk 3 pouces 


NOUVEAU I CREDITINFORMATIQUE ■ répont» ao 48h«ur«t apféitxamtndudottMr danaloutala Fraoca 


Pour datait 
a i'aiportae^ 
Sanrica Commanda 
Caprast • Cradit 
Raclamationi 

TÉLÉPHONE 

ifr338.60.00. 


NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 

BON DE COMMANDE t»n,..»,u.ilrylNniirt«ISMO. 

84. Boulevard Beaumarchais 75011 PARIS 

Kinm Prénom 

Quantité 

Oafi^nOtiOn 

PftÉ uAil lie 

Pf.i «otOl MC 









Ad<e»p ^——- 




-! 

Ville 





Code PokiQi tet - 

MOOI CM IfGtfMIVt 
CnaauaD 4 »ncdii«) 0 >nt □ 

CCajomt 0 

Confia larnCKKXtameni a 

aoaic»Pd*>ûn«d*si 3 eoen*i< 3 anii>«»o^ iOI 

1 

’ poy' * ariOCOf dae*<oi»dw'Vpi'-gr'* 

□ Oesiie r«ca«oii cotoiogua 

Cona* ramb^t*«i\*rw • 30 t 

^0 f («arnDoufioOia O io i '^commonoai 


VI$MO EXPRESS l ie*<oAca nowianco^iorn voicnaquaio' aioao*'kdnoe voeaeorwMorvi# k) >acao*'or) r*# toiord*at 







































